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l. INTRODUCTION 


A continuous chain of ammunition, fuel and equipment is the life blood of a 
military organization in wartime. The incredible speed and attrition of modern warfare 
requires the proper placement. both in type and quantity, of ammunition in peacetime 
Gimweew tite CXpecced demands of a major conflict. 

The world-wice commutments of the United States and its allies dictate a logistics 
system which is exceedingly complex. The global stockpiling of conventional 
ammunition 1s perhaps one of the more complex problems military planners must 
solve. Not only does this stock require very accurate accounting and physical security, 
Dut it is perishable in nature and its serviceability must be continually reviewed. During 
the Vietnam war, Navy ammunition procurement reached a high of $988 million 
(Ref. l: p. 24] with world-wide inventories valued at approximately $7 billion dollars. It 
Was during this period that the Chief of Naval Operations directed the establishment of 
a single point of reference within the Navy for conventional ammunition management. 
The Chief of Naval Material was given the responsibility for the establishment of a 
Conventional Ammunition Integrated Management System (CAIMS). One of the 
pomie Operational purposes of CAIMS [Ref. 2], was to improve the quality of 
ammunition stock status reaching higher echelon logistics planners. CAIMS 1s the 
point of reference regardless of inventory management or ownership responsibilities. 
Perhaps most important to the end-user, it was the stated policy of CAIMS to 
minimize the reporting burden of field activities. For example, ships were to report 
expenditure and inventory information to CAIMS only. and CAIMS would further 
distribute the information as necessary to other interested parties. 

CAIMS was established and is directed by the Navv Ship’s Parts Control Center 
(SPCC) at Mechanicsburg, PA. Program guidance is promulgated by SPCC [Ref. 3] 
and is further defined with specific implementing and reporting instructions in Fleet 
Commander instructions (Refs. 4.5]. 

The program has been successful in many respects, however several audits in the 
early 1980’s conducted by the US General Accounting Office (GAO) and the Naval 
Audit Service found significant discrepancies between on-site local records and CAIMS 


Gata. This brought into question the Navy’s ability to maintain accountability for it’s 


$7 billion plus ammunition inventory [Refs. 6,7,8]. Future negotiations for ammunition 
appropriations depend on the mutual assurance of a credible inventory management 
svstem. The timely and accurate reporting from the hundreds of field activities and 
ships is critical therefore to the success of the overali system. 

Although CAIMS as a whole has become highlv automated, linking SPCC, the 
major stock points, and other organizations in the logistics hierarchy, the majority of 


end-users enjoy no such capabilities. 


A. ) PURBOSE 

This thesis will suggest a method to automate the present manual record keeping. 
report Writing, and inventorv control procedures in use on nearly all US Navy Surface 
and submerged combatants. It ts felt that the present procedures contribute to the high 
error rate in transaction reporting and inventorv management. For activities that can 
dedicate an individual or individuals to the sole task of properly keeping the necessary 
records and generating the required reports, automation may seem unnecessary. 
H{owever, the proposed system will increase the accessibility of ammunition and 
inventory information, greatly reduce storage requirements, and reduce the time 
required to manage the system. Therefore any activity should benefit and avail itself of 
a properiy designed system that satisfies the functional requirements. The fact is, most 
ships do not have the luxury of assigning an individual to study this svstem and 
become an expert. The list of important administrative and record keeping tasks on a 
tvpicai naval vessel often exceeds the crew size by a large margin. This thesis then will 
also attempt to lessen the administrative burden on weapons department, and in some 
cases supply department. personnel who are charged with the responsibility of 
conventional ammunition management. 

This automated software solution shall be called the Shipboard Ammunition 
\fanagement Svstem (SAMS) and shall encompass all areas of routine ammunition 
management. The scope of this thesis will carry the project through the analvsis, 
design, and partial implementation of critical areas of the application programs. 
Complete implementation and additional research shall be discussed in Chapters 5 and 
6. It was particularly desired to start the implementation in this thesis because many 
good ideas never seem to bridge the void between paper and code on a project as 


restricted in time as a thesis necessarily 1s. 
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B. MOTIVATION 

The impetus for this project came from the: observation of the need by this 
author during several tours of duty on submarines of the Atlantic and Pacific Fleets. 
Althougn the quantities of conventional animunition carried onboard submarines is 
considerably less. in quantity and variety. than most surface combatants, it was still 
obvious thal an automated system could greatly improve the efficiency of the system. 
As discussed earlier. the many necessary administrative functions onboard a vessel 
generally cdo not decrease in proportion to crew size, so many smaller vessels suffer 
more in this respect. Additionally, enlisted rate training is particularly brief in the areas 
of conventional animunition management [Ref.9: p. 12-1]. Officer training is 
essentially nil in this area also. [herefore, the accurate and timely reports that CAIMS 
requires tO maintain an accounting of Navy assets is being furnished by people with 
little time or training to cecome proficient in vet another administrative task. Now 
obviously, shipboard personnel are using the available publications and are supplying 
reasonably accurate information to the CAIMS system otherwise there would be much 
higher level attention to this rroblem. This author contends that SAMS will make 
more time available for important operational and weapons employment training. 

Automating a previously manual task requires consideration of the operator’s 
ability to operate the system by back up methods when necessary. The automated 
svstem must not be so abstract and “automatic” that the manual skills and knowledge 
of the underlying procedures are forgotten. Therefore, any system of this type must be 
instructive as well as functional. Such a system has elements of an expert svstem. It is 
developed by previous users who have acquired the proper education and training to 
implement a software solution, and pass on that expertise to the current users while 
satis‘ving the functional requirements. This type of user interface could become 
extremely tedious if the system is used frequently and so a balance must be struck 
detween efficienv of data entrv and the degree of explanatory information. 

Lastly, it is unfortunate that the very personnel who require relief from 
administrative burdens often have neither the time or training to affect the change to 
automation. Thus it is particularly appropriate that shore commands and the Naval 
Postgraduate School solve these types of problems in addition to more basic research. 
The making available of time to train in relevant warfare topics is at the heart of 


current Grives to reduce administrative and paperwork tasks within the Navy. 


1] 


C. CHAPILR OUTEINE | 

Chapter | has discussed the importance of accountability and inventory 
management of conventional ammunition within the Navy. A broad discussion of the 
logistics hierarchy nas highlighted the necessity of accurate and timely information 
lowing up from the hundreds of field activities and ships. The purpose of this thesis 
was stated to be a software application package to automate the tedious and complex 
manual! record keeping required at the fleet end-user level. 

Chapter 2 will describe the present manual system of ammunition management in 
detail and point out the problems inherent in these procedures. The references for the 
manual system will be examined to illustrate the difficult task of interpreting this large 
volume of often overlapping documentation. Examples of data redundancy will be 
examined to help understand why internal record keeping is more complex than it 
should be. Finally, the lack of standardized procedures for the end-user management of 
amimunition will be discussed in light of the improvements available from a 
standardized software application. 

Chapter 3 describes the methodology for the developement of a software solution 
to the problem. The analvsis phase is considered in detail and system data elements are 
identified. A tailored Data Element Dictionary (DED) 1s developed and Data Flow 
Diagrams (DFDs) illustrate the proposed system as levels of process descriptions. 
Finally, the advantages of a database solution and normalization theory are discussed. 

Chapter 4 provides the technical details of the relations. fields, indexes and keys 
With respect to relational database design and normalization. The transition from 
logical to phvsical process descriptions takes place with the developement of structure 
charts for the system. The qualities of good modular design are discussed and the 
effects programming in dBase III Plus has on these qualities. 

Chapter 5 discusses the application code that has been implemented for this 
thesis and the reasons for selecting these programs. Coding design decisions and stvle 
are discussed in light of the potential end-users and frequency of use. System 
expandability and flexibility are highlighted. 

Chapter 6 contains recommendations for future research and comments and 


conclusions. 


The Appendices will consist of: 
a. Data Flow Diagrams 


b. Data Element Dictionary 


c. Program Directory 
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d. 


Cc. 


t. 


Structure Charts 
Program Code Listings 


Programs Diskette 


Il. PRESENT MANUAL AMMUNITION MANAGEMENT / PROBLEMS 


Naval units are required to maintain records and submit reports which provide 
accountability of conventional ammunition and allow reconcilliation of Navy 
ammun:ticn assets world-wide. 

As a preface to a discusston of the inventory control procedures, it is worthwhile 
to review the item: control methods used within the Navv. The mulitarv services 
oarticipate in the Federal Cataloging System [Ref. 10: sec. 2032]. Most NATO 
countries also participate in the Lauited States Item Identification Code. for military 
standardization purposes, under NATO Standardization Agreement 3151 [Ref. 10: sec. 
2035}. All conventional ammunition items at the end-user level should conform to the 
Federal Cataloging Svstem. These items are assigned a National Stock Number (NSN) 
by tne Defense Logistics Services Center (IDUS@ ) at Battles@ icecream menne cm 

An NSN 1s a 13-digit stock number, see Figure 2.1 , and 1s composed of a 4-digit 
Federal Supply Classification (FSC) followed by a 9- digit National Item Identification 
Number (NIIN). An FSC describes a “family” of items of supply sharing such common 
characteristics as nomenclature, end application, or physical construction. For example, 


the FSC 1345 is the bomb “family” of conventional ammunition. 


| 1345 = 700) —) i2ze22 | 
| | |‘ | 





Figure 2.1. National Stock Number breakdown. 


The first two digits of the NIIN are the National Codification Bureau (NCB) code, and 
are essentially a country code (and in some publications referred to as that), within the 
NATO framework. The United States is assigned the NCB “00” and since it 1s always 
part of the NI[N we will no longer distinguish it from the Nil Noe NTN unique 


identifies an item in the Federal Cataloging System. 


[tem identification unfortuneately gets a bit more complicated. The Department 
of Defense (DoD) has established a Department of Defense Ammunition Code 
(DODAC). which is an S-cigit code consisting of a 4-digit FSC (same as previously 
menuoned), and a 4-digit DoD Identification Code (DODIC). See Figure 2.2. 





ee eo 


| ssc-'  'poprd 
| | 
ODAC == 





Figure 2.2 Department of Defense Ammunition Code. 


To proceed further, the Navy Ship’s Parts Control Center (SPCC) has assigned a 
+-digit Navy Ammuniuon Logistics Code (NALC) to certain end round missiles and 
torpedoes. The NALC 1s sinuiar to the DODIC except that it is assigned by SPCC 
iceman LSC. See jRef. li}, NALC’s are listed in the Stock List of Navy 
Ammunition, TWOI10-AA-ORD-O010 [Ref. 12], along with the DODIC if a NALC has 
not been assigned. 

A particular item will have a unique FSC, a unique NIIN, but mav have either a 


NALC or a DODIC. Figure 2.3 may help illustrate this point. 

| FSC + NIIN = NSN | 

. | 
FSC * DODIC/NALC = DODAC 

| 

EE a 


Figure 2.3 Identification Number Composition. 


Until recently, Navy ammunition items were tracked by NALC vice NIIN, and tt 
is obvious that since a NALC does not uniquely describe an item but a group of very 


similar items, accurate stock knowledge was not possible for the end-user accounts. 


Items of the same NALC, DODIC are normally functionally compatible, but mav have 
small differences. For example, NALC AOIS is for 12 gauge shotgun shells, 00 buck, 
but one NIiN is for a shell with paper cases and one has plastic cases) Apparently 
recognizing the lack of accuracy that results from NALC reporting, SPCC is now 
emphasizing NIIN reporting on all documents. An automated system should enforce 
this more logical approach, while still maintaining the NALC identity because it is still 
widelv used tor referring to an ammunition type. The Stock List of Navy Ammunition, 
mentioned earlier, contains cross referencing for this purpose, as well as being the 
prime source of generic information about conventional ammunition within the Navy. 
Coast Guard, and Marine Corps. It is updated regularly on nucrofiche and held by all 
ACUVINIES WITH Naw amin mit1o ml 

To conclude this discussion of item identification, two additional terms are 
important. Ammunition Lot Numbers (ALN‘s) or just Lot Numbers, are assigned by 
loading, manufacturing, or assembly activities to identify homogeneous material that 
should function in a “near identical” manner. The lot number is also important to allow 
tracking, to maintain performance and surveillance records, and allow suspension or 
recall if necessary. New items are assigned ALN’s in accordance with MILSTD-1I168A, 
however much older ammunition is still in the inventory with less uniform lot number 
formats. Finally, serial numbers are assigned to high value or special interest items to 


allow individualized tracking. 


A. INVENTORY RECORDS 


Three types of record cards are used onboard ships for inventory control. 


1. Master Stock Record Card 

The Ammuniticn Master Stock Record Card, NAVSUP Form 1296) 7 ia 
2.4.18 kept for each NALC/DODIC carried onboard. The card provides a history of 
the transactions that have occured effecting the quantity or status of that item. 
Changes to the quantities in the inventory can take place by receipts, issues, or 
expenditures. Expenditures can occur due to combat operations, training. test and 
evaluation, exercises, and other reasons. Each form of transaction has a one character 
code, the Transaction Code, that describes it. These codes are explained and listed in 
the SPCC CAIMS manual (Re Geom. 3) 

If material is received or issued it will have a corresponing document number, 


which is composed of the activity’s Unit Identification Code (UIC), the 4-digit julian 
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date, and a 4-digit serial number. The serial numbers are assigned sequentially and the 
recommiended range is 8000 to $999. Thev may then repeat, however used in 


conjunction with the julian date, a requisiuon can be uniquely identified. See Figure 2.5 


| | wie | Lorian see 


NOOCZS 3506 ie S75 
date number | 


FISUne 2 OC Uae ee atin ete 


Reclassification of onboard inventory items may occur when SPCC, or the 
[Inventory Manager or Technical Manager, “determines sthanea panicilane | cumen 
ammunition should be suspended, used in a limited fashion, or considered 
unserviceable. Fleet users are notified of such changes by Notices of Ammunition 
Reclassification (NAR) messages. Approximately annually, all effective NAR’s are 
Incorporated into NAVWSEA Publication TWO24-AA-ORD-010, Ammunition - 
Unserviceable, Suspended, and Limited Use (Ref, 13]. A particular items degrecmos 
serviceability is described by its one character Condition Code, all of which are fully 
discussedam Appendix Gite Kelcrencesl# 

On the Master Stock Record Card, the on-hand balances are subdivided 
among the various condition codes that the activity holds for a particular NALC. 
Condition Code Alpha, unrestricted, is naturally the most common. 

The Naval Sea Systems Command (NAVSEA) publishes allowance lists for 
each vessel which depend on its type and configuration. The hsts contain ammunition 
type and quantity authorized, as well as the quantity of certain NALCs that may be 
used for training. The master record card is used to record these numbers and the 
computed unexpended training allowance remaining for the fiscal vear. 

Anv changes in quantities or condition codes require that an Ammunition 


Transaction Report (ATR) be submitted. This report will be more fully described later, 
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but the Master Stock Record Card is used to associate the ATR number with the 
particular transaction line item on the card. | 
Finally. various other codes are recorded on the card which are obtained from 
One of severamselerences: 
|. Packaging Remarks: References !2 or 14 
ocistics Code- NALC: References 12 or 14 


COG-Cegnizance Svmbol: Reference 12 


tJ 


(id 


eee C- Niaterial Control] Code: Reference 12 
>. DOT-Department of Transportation Hazardous Material Code: Reference !4 
Ome tee Vv Sec Explosive Wetent: References 12 or 14 


C.G. Haz. Cl.-Coast Gaurd Hazardous Material Class : Reference 14 


2. Lot/Location Card 
ieee MMunitnen or -Location Card. SAVouUP Form 1297, Figure 2.6 , 
is completed for each lot number within a NIIN. There are onlv a few new concepts on 
this card that have not been previously explained, so the explanation will be brief. The 
consignor consignee is the shore activity or operating unit to which the issue was made 
or from which the item component was received. This card contains much information 
previousiv entered on the Master Stock Record Card. 
5. Serial/Location Card 
Sine AinMmUston, seal tocation Card, WAVSULP Form 1356. Figure 2.7 , 1s 
COmile eo fOr items thar require SLIT tracking. Serial/Lot Item Tracking (SLIT) 1s a 
system Wheredv certain ammunition items are designated for increased tracking and 
surveillance. These items may require identification by lot number, serial number, or 
oeth when reporting transactions. This distinction is indicated by the Material Control 
Code (CC): 


i AO Reports 
B Fou Sumber 
@ Item Serial Number 
E Lot and Item Serial Number 


Items that do not require SLIT reporting will not have an MCC assigned. MCC Bravo 
ammunition is adequately documented on the Lot/Location Card. Items with MCC 
Charlie and Echo require individualized tracking with the Ammunition Serial; Location 
Card. 
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Ammunition Serial/Location Card. 
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The only new item here is the Maintenance Due Date (MDD), which is the month and 
vear of the component’s next scheduled maintenance. MDD’s are assigned to MCC 
Charlie and Echo items only. Figure 2.8 may help to illustrate the relationships 
between the various stock cards. 

4. Discussion of Inventory Record 

As Figure 2.8 demonstrates, normally 2 and occasionally 3 of the stock record 
card tvpes are required to describe an ammunition 1lem. 9 ity enemotne: sce. 
available, the Master Stock Record Card must hold all the transaction information for 
every transaction (1.e.. documient number, type, quantity, eter It muUsmineid: alec nenite 
allowance information, or you would have to reference the Allowance List each time 
vou needed that information. It holds much generic data about the item which does 
not change regardless of transactions or quantity in the inventory. The alternative 
however would be to look up information, each time vou were interested, in at least 
four very voluminous publications. 

The Lot Location card subdivides each NIIN by lots, and much information 
is repeated. The only new data items are the lot numbers. The Serial/Location cards 
likewise duplicate data. 

It is quite obvious that maintaining all the required records for even a small 
ship’s inventory, say at least 40 NALCs, would be extremely tedious. A large vessel 
with perhaps hundreds would demand full time attention. It is this author’s experience 
that much of the repetitive information would not get entered properly, and the initial 
construction of a set of cards would be an onerous task. Multiplying those man-hours 


for all the ships involved results in considerable non-operational training time. 


Ideally the inventory records should contain information that deals only with 
that particular batch of ammunition, namely: 
lL. NiIN - what is it? 


2. Condition Code - what can it be used for? 
3. Activity Classification Code - who is it for? 
4. Quantty - how many are there? 

5. Storage Location - where is it? 

6. MDD - when does it need maintenance? 

7. Lot Number - what lot is it? 

S. Serial Number - which one is it? 


Non- SLIT and Lot Controtled Items (MCC*B’) 
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Figure 2.8 Ammunition Stock Card Relauonships. 
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This information can not be looked up in a publication because it deals with the 
particular articles at hand. Other information listed on the stock cards is of general 
nature and can be looked up. indicating that we could locate it in one central place and 
reference it when needed. Therefore we would not have to repeat it on everv card. This 
is one of the important concepts of automation that can be used in many ways as 


chapter 3 will demonstrate. 


B. REQUISITION, TURN-IN/TRANSFER, RECEIPT 
{. Background 

Naval vessels are required to maintain 100% of their authorized allowance on 
board or on order, so as to be ready for immediate combat operations. Certain 
exceptions applv which are spelled out in the SPCC CAIMS manual [Ref. 3: p. 8-2-2], 
and may be modified bv fleet commander instructions [Ref. 4,5]. Reasonableness 
dictates how small an order should be placed to satisfv these requirements, of course, 
Where ammunition 1s concerned, too much 1s better than not enough! 

A few more definitions are appropriate at this point. Activity Classification 
Codes (ACC) describe basically who the ammunition 1s for. It may be carried bv a ship 
to satisfy its own offensive and defensive armament needs, in which case it is ACC 
Alpha ammunition. However, other ammunition could be carried for embarked 
Marines, aviation units, or for underway replenishment of other ships. Each of these 
other recepients causes the ACC to be different. Most medium to small ships and 
submarines only carry ammunition for their own use, but most large ships have 
ammunition on board for other purposes and thus they must account for it separately 
(ie- a separate deck of inventory cards). This makes the ACC an essential data element 
for each ammunition record. Chapter 8 of the CAIMS manual [Ref. 3: p. 8-5-34], lists 
and describesvall of the AC @veodes: 

‘Associated with the concept of ACC, are the three tvpes of allowance lists a 
ship may have. A Shipfill Allowance List authorizes the quantities and types of 
ammunition for own ship’s use. A Mission Load Allowance List is that ammuniton 
carried to support associated ships or aircraft squadrons; usuallv aircraft carriers and 
tender tvpe ships. A Cargo Load Allowance List is normally held by designated cargo 
or logistic type ships ( AE, AOE, AOR, etc.) for replenishment Gi athermessels: 

All naval vessels, as well as the other services and many government agencies, 
submit requisitions and transaction reports in Military Standard Requisitioning and 


Issue Procedures (MILSTRIP) format [Ref. 3: Chapter 8])) §uinis ss stem serves to 
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standardize procedures for efficiency and economy. It allows machine readable logistics 
traffic bv specifving data elements, codes, and formats. Until recently, transaction 
reporting Was done in normial narrative message format which had to be transcribed to 
MIILSTRIP format at a shore activitv with ADP capabilitv. New instructions from 
SPCC [Ref. 3], and those still in production at fleet headquarters, now direct a format 
that 1s machine readable, reducing the chance of error in transcription or kev punching. 
SPCC is linked, via ADP equipment and teleconimunications with all major stock 
points, many nunor stock points, and other logistics organizations. Ships submit 
[aired TeEquiSitiIe@ns cr Send miessages Which are entered into the CAIMIS at a shove 
ACHipasy’. 

ihe Defense Automatic Addressing System (DAAS), with primary location in 
Dayton. Ohio, 1§ a telecommunications system which was designed to effectivelv route 
logistics traflic from all the services. DAAS computers can receive messages. perform 
SOiemretmat emer checking, determine the addresses, and route them over the quickest 
path to their destination. DAAS functions over the Automatic Digital Network 
(AULTODIN). The message format that is acceptable to DAAS is slightly different, and 
the requirements for use more restrictive, than a normal naval message. However when 
applicable, it is the rnost efficient way to route logistics traffic. The SAMS svstem 
should allow for transmission in either format as well as manual requisitioning. 

2. Requisitioning 

Ships and other naval units may submit requisitions for conventional 
ammunition in one of three formats as previously alluded to. A manual requisition, 
DD Form 1348, Figure 2.9 , may be completed and physically delivered or mailed to a 
shore weapons facility. The shore activity enters the requisition into the CAIMS with 
their ADP equipment, SPCC routes the requisition to the appropriate Inventory 
Manager (SPCC,NAVAIR,NAVSEA,NMIWEAJCMPO), and an apprcpriate stock 
point is selected to deliver the material. 

A message requisition may be prepared in DAAS format, Figure 2.10 , and 
electricallv transmitted. A requisition line item on a DAAS message is printed on one 
horizontal line or 66 characters, with no separations. A DAAS message may also 
contain followup actions, modifications, cancellations and other logistics actions 
besides requisitions. The type of action is determined by the document identifier, 
column 1-3. The Routing Identifier (R I), column 4-6, is analyzed and the line item 


sent to its addressee. In this format the requisition is fully machine readable. 
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Figure 2.10 DAAS Message Requisition Format. 


og 


DAAS has restrictions however. There can be no narrative remarks, the 
classification must be UNCLASSIFIED, and the R/I must be a continental United 
States (CONUS) activity connected to AUTODIN. Usage of DAAS by afloat units is 
somewhat limited bv fleet commander instructions which require narrative remarks and 
primary addressee other than DAAS, Dayton, O[1 on some ammunition items. 

The last requisition format 1s the normal narrative naval message, Figure 2.11 
. It should be noted that information and codes present on any of the three formats are 
almost identical. Fleet commander instructions require some minor format changes. 
The Pacific Fleet Conventional Ordnance Management Manual [Ref. 4: p. 1-1-A-S] for 
example. requires that the quantuty and NSN be spelled out on naval message 
requisitions to prevent confusion in the event of a garbled message. In anv case. this 
format 1s net machine readable and must be entered into CAIMS at a shore activity. It 
is more flexible however than a DAAS formatted message. Remarks may be included, 
it may be addressed to any activity. and it mav contain classified information ( the 
remarks generally are the only classified information). 

The three formats are reasonably well described [Ref. 3: Chapter 8]. The 
codes are rather cryptic and their full names are shown below. Explanations may be 


found in Anpendix B, the Data Dictionary. 
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MISCELLANEOUS REQUISITION CODES 


Code Full Name 
D7 I (Dee. Ideme,) Decument Fdentirier 
Rl Routing Identifier 
M&S Media and Status Code 
SSI Service Code 
| Dem Demand Code 
Sey Signal Code 
| Fund Fund Code. 
| Dagsc Distribution Code 
Pie) Project, Code 
Pig Prioricy secce 
RDD Required Delivery Date 
Adv Advice Code 


ee ee EEE eee 


GENE rACE & PEARL HARBOR HI 


COMNAVSEASYSCOM WASHINGTON DC 


COMSEVENTHE LE 


COMPFALRWESTPAC ATSUGI JA 


USS  CONSTECOAT SON 


SaAS 1 


7//NOVBOL0// 


TION 0921062 JUN 909 


NOB/W/LW35008990134/EA/00005/R03364/0160/8001/ 


/8848/06/174/28 


/ Eee/ eres 3647 0L00/S002/R/NG6 2807/7 


acm mt He me em 


Unclassifiec Example 





Figure 2.11 Naval Meassage Requisition Format. 


3. Turn-in/ Transfer 
Ships often have to turn-in ammunition that is excess. reclassified by NARs. 
Or requiring periodic maintenance ashore. The DD Form 1348-1 is used for this 
purpose. Figure 2.12. Somewhat fewer coded items are necessary on this form because 
the ship is physically delivering the material to another activity. Most commands also 
select another group of serial numbers for turn-ins, in order to differentiate them from 
requisitions. A separate log 1s maintained. The CAIMS manual [Ref. 3: p. 8-3-1], 
assists the user in completing the form. 
4. Receipt 
‘Ammunition is also received on DD Form 1348-1. The document number on 
the receipt document corresponds to the receiving ship’s requisition document number. 
of course the possibility of being sent material that was not ordered exits. The only 
new data items that have not been previously discussed are the unit price and the unit 
of issue, both of which are listed in the Stock List of Navy Aimmemitionet nei. 
5. Discussion 
The requisition, turn-in/transfer, and receipt documents require some form of 
logs to be kept. A Requisition Log may contain a history cf requisitions and receipts 
by document number (serial number). A Turn-in log would be similar. Retention of 
these documents provides a source of information for the future, instead of having to 
look up the information all over again. This is not necessarily a good practice as 
certain data elements may have changed in the interim. But this is just the kind of 
thing a busy sailor might do to save time. not recognizing the potential problems 
involved. Recall of the many different data items from publications can be time- 


consuming. 
C. AMMUNITION TRANSACTION REPORTING 


Transaction reporting is required for any action, event, or procedure that results 
in the receipt, issue, transfer, expenditure, loss, gain, reconfiguration or change in 
material condition of reportable material. [Ref. 3: p. 8-4-3]. 


The format of Ammunition Transaction Reports (ATR’s) has recently been changed to 
allow optical scanning of the data elements which are separated by from one to four 
slashes,”.”. ATR’s have multiple formats depending on the type of transaction. the 
MCC of the material (i.e., SLIT or non-SLIT), and the ectualsinpercr the marena 


This extreme variability has traditionally caused the greatest problem, resulting in a 
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high error rate for these documents. Although the new format is more efficient in that 
it can be optically read and entered into the CAIMS by shore activities, it is now 
incomprehensible to the fleet user. Therclore each eA? Regist eumese sec 
nainstaking step-by-step manner, minding the format and content of each data 
element. ATR’s are transmitted as naval messages to SPCC, with information 
addressees and classification depending on the tvpe of ordnance and the type of 
sending platform (1.¢., submarine. surface vessel }) Figure 2:13 iuistratecsene foun sen 
ATR. The serial numbers run from O00! to 999 and then repeat, with a ship’s most 
recent ATR indicated in the current ATR s reference lime) This 1S tomensime tia se 
receives ai ATR’s from a ship without ommuisston, and in the correct sequence. Again, 
muttiple transactions can be listed on one message as long as the common information 
in tne header applies to all the transaction line items. Figure 2.14 attempts to illustrate 
the various ATR formats, the variabilitv is evident. Each vessel keeps an ATR log to 
form the primary history of the ship’s ammunition transactions, from: overhaul to 
overhaul, and to allow correction of anv ATRs that were submitted with incorrect 
data. This log may consist of all the actual messages and a summary of each ATR with 
its effect on the running total of each item involved. 

Properly submitted AT Rs are critical for the overallsfunctioning ome lS 
old adage ” garbage-in, garbage-out ” aptly applics, and it is sincerely hoped, by all 
levels, that higher echelons are not making procurement and allocation decisions based 


On incorrect data. 


D. COMMENTS 

In addition to comments made throughout this chapter concerning data 
redundancy, multitudes of codes, and more than a few reference publications, micntion 
should be made of the lack of any standardized record keeping procedures. 
Requisitions, turn-in documents, and ATRs must be submitted, and inventory cards 
Inaintained, but no system or procedures exist for the maintenance of logs or records. 

It is generally accepted that some sort of auditable system must exist to resolve 
discrepancies and maintain accountability. The procedures that each individual ship 
creates may range from excellent to poor. Some ships may have even written ship's 
instructions for this purpose, detailing the manual methods to be used. A software 
package, such as the proposed SAMS, will have several benefits besides more accurate 
and umely ATRs. It will keep all logs and records for the user, it will standardize 


procedures without requiring the user to create new logs and binders, and finally it will 
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Figure 2.13 Ammunition Transaction Report (example). 
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Figure 2.14 Ammunition Transaction Report Formats. 
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Wi. AN AUTOMATED SYSTEM DEVELOPEMENT 


The purpose of Chapter II was to give the reader a basic knowledge of the 
records and reports presently used onboard non-automated ships of the Navv for 
conventional ammunition inventory control and accountability. Problems of data 
dupiication, lack of standardized record keeping procedures, data inaccessibility. and 
late and inaccurate external reports as a resulivo; these weremdiseusscad simisec apres 
shall develope a database management system (DBMS) solution to illeviate those 


problems as Well as reduce the administrative burden on ship’s force personnel. 


A. METHODOLOGY 

[t is now generally accepted that systems analysis and design must follow an 
orderly, logical process to arrive at a systern that is reliable, maintainable, efficient, and 
manageable (i.e. within cost and time). The Shipboard Ammunition Management 
System (SAMS) developement has foilowed such a process with certain modifications 
that reflect the new technologies of the DBMS and its easy to use programming 
language. 

Structured analysis and design evolved in the 1970’s to bring a disciplined 
approach to computer system developement. The 1950's and 1960's were characterized 
bv haphazard analysis and design techniques and what Meilir Page-Jones referred to as 
the “Instant Karma” approach of computer system developementeike:. 15) Oye 
Many excellent books now exist on the subject of structured techniques, 
(Refs. 15,16,17], so the treatment here will be brief and only as it relates to the SAMS 
developement. Davis [Ref. 17: p. 8] defines the steps involved in a _ structured 


devclonement nematic ericie cis: 


|. Problem Definition 


2) Feasipility study 
3. Analysis 
4. Svstem Design 


ian 


Detailed Design 
6 I [mplementation 


7. Matntenance 


The relative weight that each step carries and the time spent in each area, of 
course depend on the project at hand. Most organizations use, or have used, some 
derivative of this oasic lfe cycle in their svstem developement process. A reasonable 
approach ts to study the available structured developement philosophies, modify these 
Where adviseable to accomadate new technologies and tools. and apply the best 
composite olan. There have been worries among structured technique advocates that 
she new technologies, 1e. fourth generation languages. prototvping packages, and 
personal computers, will comprimise advances made in svstems analvsis and design. 


But, as Edward Yourcon, a prime advocate of the structured techniques. points out: 


The major philosophical concepts used to build reliable, maintainable 
information svstems, which is what the structured techniques are ail about, can 
Pertinue tO emurace Mew technologies witheut destroving the concepts 
geeriselies) {Ref. 16: p. 6| 


Chapters | and [] went into some. detail on the mature of the problem and 
defined the scope of the solution. A formal feasibility study was not conducted, 


nowever the miajor points of such a study were considered [Ref. 17: p. 274]: 


1. Technical: Can the system be implemented with current technologv? 


waeeconomic: Do the benefits outweigh the ccsts? 


oA) 


Operational or Organizational (Political): Can the system be tmplcmented in 
this organization? 
Technical feasibility is well assured. Inventory control systems are not new, the 
data and reports required are well defined, and the DBMS products make the task less 


Miicult. 


(4. 


Economic feasibility, as usual, is hard to quantify. How much ts a 10 per cent 
increase in system accuracy worth to Navy planners responsible for ammunition 
procurement and allocation? Also, how much is the reduction in administrative burden, 
and the subsequent increase in operational readiness, worth? These are difficult 
questions to answer. In light of the relatively minor expense of the SAMS 
developement however, it only makes sense to pursue an alternative to the present 
manual system. If the project progresses beyond the research stage to fleet 
implementation. the increased costs would warrant a more formalized cost benefit 


Selon 


Political feasibility should pose no problems. Weapons and operations personnel 
On most Navy ships are already heavy users of computers in their daily routines. Any 


labor saving device, which reduces records as well, would most likely be welcomed. 


BB. SANALYSIS 

The analvsis phase of a project must fully determine what the system must do. 
How this is physically accomplished is the subject of the next section on design. For 
this author, the analvsis phase began in 1983, unknowingly, with experience operating 
the manual system, which 1s largely unchanged today. However, under the pressure of 
multiple jobs, most users generally never acquire the big picture that is necessary to 
design an automated svstem. Normally the analyst will interview many people involved 
in different phases of the operation, plus review all the applicable documentation, to 
gain this big picture. This project required a slightly different approach. The author 
acted as an eXpert user’analvst and based on experience and intense study, the system 
was designed and partially implemented. The pitfall here is that the expert user is too 
“expert to really appreciate user “diiliculties” These wdifficultiess would lan cmtomiee 
resolved by a period of “normal” user interaction in the fleet following complete 
implementation. It will be shown that a DBMS makes such modifications, as mav be 
necessary to suit the bulk of the users, much easier to perform. 

A complete knowledge of the existing system was the first major job in the 
SAMS developement. Information, publications, instructions, reports, and forms were 
collected from all the conimands and agencies involved in the flow of conventional 
animiunition to the fleet. The intent, policies, and procedures of the CAIMS program 
were studied to gain this big picture, even though many details did not directly affect 
the end user environment. There are several “layers” of instructions that deal with 
similar, or the same topics, and the semantic inconsistencies between these often 
necessitated phone call and extensive cross referencing to resolve. This overlapping of 
instructions is seen by this author as a definite problem. It can thwart a clear end user 
understanding of the system, since they have little time for phone calls or extensive 
research. 

The object of SAMS is to automate the end-user inventory and control 
procedures while remaining compatible with requirements of higher level Navy 
instructions. External report formats must be as described in Chapter II, however 
internal stock cards wou!d not be used in an automated system naturally. This would 
require modifications in those instructions deleting the requirements for those cards for 


the ships that are automated. 
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1. Data Flow Diagrams 

One of the major tools of structured analysis is the use of graphical 
representations to depict information flow. Data Flow Diagrams (DFDs) are a network 
representation of a svstem which is generally much easier to understand, at least by the 
end-user, than the functional specifications of the past. The DFD is an analysis tool, 
andeas such, is logical in nature and does not depend on hardware. software, data 
structure, or file organization. A logical representation is one that reflects a user’s view 
Of tie system and its processes. Several references [Rets. 15,17: p. 60.281}. give similar 
Cescriptions of the constituent parts and developement of DFDs. Figure 3.1 shows the 
Fundamental Svstem Mode! or the Context Diagram for the SAMS. This is the highest 
eve, Cf abstraction and shows the entire system as a single node. The user inputs data 
to ihe system or requests processing at the source square, the system node performs 
tne slecessarv processing, and outputs data and,or reports at the sink square. This 
context diagram serves as a starting point but is not particularly useful or informative. 
Subsequent levels of refinement form a complete set of Data Flow Diagrams for the 
Svs and are included as Appendix A. 
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Figure 3.1 SAMS Context Diagram. 


Data Flow Diagrams do not show flow of control or sequence of execution of 
the processes. Also, the representation of files are purely logical and may be 


iraplemented quite differently in the fina! design. 


bg 


2. Subsystem Functional Description 
Experience and research provided the logical divisions for the conventional 


ammunition management problem. Nine subfunctional areas were identified. 


1. User Access Validation 


ty 


General Information. Documentation 


Inventory. Allowance Ammunition Data 


Js 


4. Transaction Management 


Cs 


Requisition \fanagement 


6. Turn-in Document Management 
7. NARS Management 

§. System Vlanagement 

9. Generate Internal Reports 


This system breakdown seems obvious on the surface to anyone familiar with the 
manual system, as Well it should be. The more closeiy an automated system follows the 
loyical, or user’s view, of the processes, the higher probability there is of the user 
fecling comfortable with the svstem. However, the system breakdown also considers the 
svstem goals and improvements desired in the automated system over the manual one. 
a. User Access{ Validation 

Tne User Access/ Validation function should ensure that onlv authorized 
users of the system may gain access. The SAMS is intended for use by Weapons 
Department personnel charged with the responsibility for ammunition, and as such, 
they should be the onlv people manipulating the system. Requests for svstem data 
trom superiors can quickly be accessed by these people. The system should be capable 
of controlling authorized user’s priveledges within the system also. The SAMS onlv 
requires two basic levels of access. The lower level should allow access to the day-to- 
dav processing options, two through seven and nine. The higher level! will allow the 
SAMS administrator or manager to access all modules for system initialization, 
infrequent data changes, user changes, or to correct unforeseen system processing 
problems. This degree of power places great responsibility on the administrator and 
requires that he be fully knowledgeable of the system and the consequences of his 
actions. The risk in this approach is necessary however, because there will be no 


technical representative or outside help if the system developes a problem while at sea. 


40 


6. General Information| Documentation 

The second option provides general information and documentation that 
the user may find useful in getting acquainted with the system. This may include a 
system descripuon, explanation of the options available, what the system does not do, 
hardware requirements, basic Kevboard operaticns.etc.. Also, this option should give 
tne codes and definitions that are frequently used by the SAMS and within the CAIMS 
system as a whole. A data dictionary will not only explain the many acronyms but will 
Inicrease the Knowledge of the user and assist the manager in system management. 

Finaliv, a help program can be resident within this option and called from 
various places throughout the application programs. It is very difficult however, to give 
adequate help to a user with generic help messages about a particular question he mav 
have. The author feels that giving more, rather than less information in the user 
interiace is generally less frustrating than needing to frequently use a help program. 
Now, if the program was in constant use by a dedicated operator the extra verbage 
wouid become annoying, however tnat should not be the case here. The data entrv <o 
the SAMS would probablv slow down an operator who has all of the many codes 
memorized, but for those less gifted (the majority), the system will minimize the ume 
referencing manuals. Also. the instructive goal of the system can be more easily 
accomplished tn this manner. 

c. Inventory] Allowance/ Ammunition Data 

This 1s basically a review opuon. The user would frequently want to review 
the current status of his onboard inventory, perhaps with a quick overall perspective in 
mind or a detailed review of a particular item. The SAMS inventory information 
should make the present record cards unnecessarv. Since the change in an inventory 
level van only occur as the resuit of a transaction of one kind or another, the inventory 
is nOt manipulated directly, but is updated as a result of transaction processing. 

Allowance information can be conveniently stored in the system where 
training expenditures can be updated and monitored. Again. any update occurs as a 
result of transaction processing. 

Ammunition data is that generic information about a particular item that 
does not change as a result of transactions and previously would have been looked up 
in one of several publications. See references 12 and 14 for examples. Any amount of 
information. about any kind of ammunition, could be loaded into the svstem. however 
to save disk space, only those items the particular ship would likely carry should be 


entered. The system manager can add or delete items as necessary. 


d. Transactions | 
Transaction Management 1s the major processing function of the system. A 
unit can receive items through a receipt, condition code change, or a few other 
infrequent occurances. It can reduce stock by an issue, expenditure, condition code 
hange, or other reason. This subsvstem should recognize the type of transaction. 
undate inventories, create the information that will go om the A Rand updavesciaes 
files when necessary. For example. a receipt transaction should update the requisition 
tiie if the receipt occured as a result of a requisition the ship submitted. An expenditure 
transaction should update the Allowance file if that item had a training allowance. 
e. Requisitions 
Requisition M{anagement involves the creation of requisition documents in 
the various allowable formats. The MILSTRIP system, dicussed earlier, is heavily code 
oriented, and this option should guide the user through the selection of the proper 
codes for the particular item at hand. This module should also store the information as 
4 permanent record, eliminating the need for manual records. A user may edit these 
records during creation and prior to their being submitted, however the integrity of the 
data would be violated if he were allowed to do so afterward. Therefore, as with ATR’s 
and Turn-in documents, there is a point where the data must be committed, and not 
changeable by the user. Anv special cases could onlv be adjusted bv the system 
manager. 
f. Turn-in Documents 
The Turn-in Document Management function must create and store the 
turn-in record and print the DD Form 1348-1, the Single Line Item Release Receipt 
Document. The processes involved are very much like the requisition management 
function: one representing imminent issue and one representing imminent receipt. 
Later, when the transaction actually occurs, an issue transaction can be processed 
which updates the inventory. Naturally, the information already recorded by the Turn- 
In processing need not be collected again, rather the Turn-in file is linked to the 
Transaction file and the information transferred. 
g. NAR Messages 
Naval Ammunition Reclassification (NAR) Management serves to process 
these inessages as thev are received. A stock check must be conducted to determine if 
the ship helds any of the ammunition lots specified in the message. If the check is 


negative, the onlv action required is to log the serial number of the NAR message. If 


the stock check shows that action is required, then the proper reclassification 
transaction must be processed. The information pertinent to the NAR must also be 
saved for future reference and historical records. There should also be a link between a 
reclassification transaction and the NAR message that precipitated it. 
h. System Management 

The System Management module will be extremely powerful, allowing the 
manager io globally edit all files and initialize the system. He will also be able to 
manage the security system, archive old records, recover the system when necessary 
from backup fiies, and have access to the operating system and DBMS dot prompt. 
System documentation, of no real value to the normal user, will be available to the 
manager, to further his understanding of the system. 

1. Internal Reports 

Lastly, the Generate Internal Reports function will produce those reports 
that the typical users, and their supervisors, would find useful in management of their 
conventional ammunition program. Of course. the information would also be available 
on-line, but it is often useful to have hard-copies. Microcomputers will still not fit in 
ones back pocket! The SAMS should be flexible enough to allow future report 
requirements to be incorporated without system redesign. The data flow diagram for 
this function describes several of the anticipated reports, however expansion 1s 
probable as new requirements come to light. User experience would suggest other 


useful reports. 


3. System Data 

As the name would suggest, a data flow diagram shows the data that 
interfaces the active processing areas of the svstem. The data is stored in files for later 
recall or processing. A convenient way to aid the analysis of a system 1s to identify the 
data that is require at the “sink” and work backwards through the system to the source 
of the cata. The SAMS has certain data elements that it must be able to produce to 
construct ATRs, requisitions, and turn-in documents. Also, it must record the 
inventory data to replace the manual stock cards. This data then forms the minimum 
set for the system. Table 2 identifies the data that is included in these output 
documents and the stock cards. 

These data elements thus form the initial inputs to a Data Element Dictionary 
(DED). A DED is basically a collection of data about data. The idea is to provide 


information on the definition. structure, and use of each data element in the svstem 
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TaN ie 


SAMS OUTPLT DOCUMENT DATA EEE air. 


Transaction Report Data Elements 


From: 


Name 
Lmee 
Info Addresses 
Datevoti@race LR 
or last ATR DIG 
Own ship UIC 
ATR Serial 
ACtlViteyvec lass: 
Julian Date 
NLIN 
Beginning Balance 
UAC iiey 
ser ID/Source ID Code 


Code 


Document Number: 
oe Desig. Code 


Julian Date 
Serial 
Ending Balance 
Lot Number 
Component Serial Number(s) 
mone Canes Due Date 
ae of Maintenance Due Code 
Oltd Condition 2eeocde 
New Condition Code 
Transaction Code 


Turn=-in Document Data Elements 


Stock Number: 
ESE 


NIIN 
Unit-of-issue 
Quantity 
Document Number: 

serv. Desig. Code 

es 

Julian Date 

serial 
DIStribuUeion, cece. 
Monitoring Active, 
Cognizance Symbol 
Project Code 
Unie. Peace 
eae i hon: 
oe Desig. Code 


Name 
Hull Number 


eae eer 
Serv. Desig. 
ee 
Nam 
Location/Hull Number 
Teta Price 


Code 


Security Risk Code 
Material Coneai tion. code 
aoe Class. Code 


G. Hazard Code 
Cot Number 
oupovens Serial Number(s) 


Noun Name 
NAR Number: 

NAR eae 

NAR +oen 
Date meio Oi tc Unemec ener tl 
Freight ass. Nomenclature 
Type of Container 
No. of Containers 
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TEABIBE 2 
Sows OVE POCe NIE iD TAGE. EAGES (CONT 'D.) 


Requisition Data Elements 


Requisitionee: Beerment Mumber: 
serv. Desig. Code Serv. Desig. Code 
nC LE 
Name | Julian Date 
BOGa=2on / pebial 
Hull Number Demand Code 
Reqmnsitioner: Supplemental Address: 
nemvy. Desig. Code serv. Desig. Code 
ve eee | 
Name Dacia lec occ | 
nu ieee rr. Fund Code 
wocument identifier Biseeeouenen Code: 
RoweinG Identwrier MOM EOming AGCtivity | 
wecla and Status Code Wocdmrzance Symbol 
eeeck Number: Igo gions, (Sefel= 
BSC EO, Veymeode 
eee Required Delivery Date 
Pelu-oO.-issue advice Code 
MIancicy Info. Addresses 


Wivenveornvsenececerd Data Elemenes 


transactton Jul. Date NALC. 
Decument Number: Cognizance Symbol | 
Sema Desig code NIN | 
| ene. Material Control Code | 
| Jilian Date Becly) Gyelass m= code 
serial bemeciass. Code - | 
Mmasisaction Cede Net Explosive Weight | 
Quantity Stowage Location | 
/ @omnaition Code C.G. Hazard Code | 
| gtk Serial Consignor/Consignee UIC | 
| Unexp. Trng. Allowance Lot Number . | 
Alicwance Componene Serial Noms) | 
ge cl Sripftivi Allow. Maintenance Due Date | 


| Annual Trng. Allowance | 


eee i 
(Ref. 17: p. 296]. Table 3 lists the format of the information that will be stored in the 
DED for each data element. By exactly defining the meaning and structure of the data 
elements, standardization among the application programs is facilitated. Also, as will 
be discussed, relationships between data can be utilized to greatly increase the amount 
of useful information the system can produce. This can onlv be accomplished if 


consistent data definitions are observed. The DED for the SAMS will be an on-line 


ay 
Cay 


facility for user reference and mav also be printed for hard copy documentation. 


Appendix B is the SAMS Data Element Dictionary. 


C. DATA ORGANIZATION 
1. File Processing 

A final consideration, and one of primary importance, is the manner in which 

the svstem’s data is stored and represented. Traditionally, file processing systems 
organize all of the data for a particular specialized application into a single file and the 
program operates on that file to produce the output. In this manner, the file ts really 
just a storage medium for potentially very dissimilar data. No data organization 1s 
implied other than sequencing. Other specialized application programs would operate 
on files that contain all of the data necessary for that application. In terms of the 
SAMS, such a system might be structured as in Figure 3.2 . 
There are some immediate problems with this method of file and data organization for 
an ammunition management system. First. since each file contains all of the data 
needed for it's prosram, there is mmenh redundant data inthe systema rnis Ol coun 
requires much redundant data entrv which the operator resents because he logically 
questions the necessity for dome it. For example, each of the files im Figure an. yeame 
their associated program, require the name of the snip producing the documents, and 
thus the files must contain that data. This type of redundancy has traditionally been 
accepted because the programs that would be required to share data among files were 
complex. Unless all the application programs and files are constructed with 
compatioility in mind, a conversion process between different record formats might be 
necessary. A one-of-a-kind request necessitating shared data would have to be vitallv 
important to merit such effort. 

This lack of integration capability limits the information that can be obtained 
from the data. However, the redundancy of data also presents problems other than the 
muliiple data entry required. It wastes storage space in the files, which 1s important 
when considering a microcomputer application. The larger files also cause slower 
orocessing times for the system as a whole. Finally, when data elements change, the 
different programs must all be updated or inconsistencies will result. 

2. Database Processing 

Database processing is quickly gaining ground on file processing in most ADP 

applications and has several major advantages over file processing techniques. First 


and foremost, Data Base Management Systems (DBMS) allow the sharing of data 
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| TABLE 3 
DATA ELEMENIMS @lIONAKRY FORMAT 


Longtitie: The long title of the data element. 


— 


e May Germtatm sp to SO characters, 


Name: A short hand version of the long title 
to be used in programming and is compat- 
ible with the DBMS variable representation 
and iength for record ana field names. 
( 10 Characters for field names and 8 
characters for record names. ) 


| 
: 
| 
| 
| 
DEN: (Data Element Ae Homacnoses data | 

e-emencs that are cagalogea in the 

stanecard Data Elemente Dictionary( SDED), 

a DEN is assigned. The DEN consists o 

an aiphanumeric character followed by 

Pree (Omeeour huMericsmeine DEN acts as 

a means for controlling data elements and 

as a short hand name. 


Pacture: The data type of the element,i.e. 
eee mente, SOgt ee ete and 
the width of the field. 


Dese.. ine pera me cece Pelan explains : 
what data or information the element | 
represents. 


| 
pews EMO tecaetons and Other documentation | 
Giat Gaye additional iniormation about | 

the data element. 


Codes: If the data element has codes associated 
with it, the reference that lists all 
Eheose codes and cheir meanings 1s given. 
Giiesemcoges are given in the General 
imeeOormaclon Option » 1...) | 


socom eo uerelactons Im wiiech the data element 
appears. (SAMS Relations) 








Regu 1S. e <=> Requesmtlon ia Reports 


ile System Displays | 

Transaction <-> Eransacel On ea. Reports 
File System Displays 

| Turn-in <=> Daria tt --> Repomes 

| File System Displays 

| 

| 





Figure 3.2. File Processing System for SA VIS. 


between files quickly and easily. This 1s accomplished by the DBMS program itself, 
which is usually quite complex, but fotunately requires the user to know nothing about 
it’s intricacy. Thus the system files are established under DBMS control in a 
compatible format. Application programs only communicate with the DBMS, as far as 
data retrieval is concerned, and it “fetches” the desired data by it’s own means. Sharing 
Gata means that a reduction in redundant data is now possible through intelligent file 
design. In contrast to Figure 3.2, Figure 3.3 is a representation of how the SAMS 
might be constructed using database technology. 

A DBMS also creates program'data independence since the programs do not 
need to know anything about the data structure of the files. We can add application 
programs that use any of the files and this gives much flexibility in system design. 
Fields can even be added or deleted from the files without any effect on the programs 
that do not explicitly use the affected data. 

There are some disadvantages to database svstems, however for medium-to- 
small applications, with much interaction, they are very insignificant [Ref. 18: p. 6]. 

The SAMS will therefore use a modern commercial database package, dBase 
II{ Plus, bv Ashton-Tate of Torrence, California. This is a moderately priced package 
for use on microcomputers and has gained mucn popularity. DBase III Plus ts a 
relational database which simply means that data is represented in the form of tables, 
or relations. Readers interested in a full discussion of relational database theory should 
refer to Date [Ref. 19], Ullman [Ref. 20], Kroenke [Ref. 18], and Brodie [Ref. 21]. 
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a 
| 


BSouges C1 On --> Reports | 





| ogram Displays 
Transaction <--> Reports 
Beocmam Displays | 
<--> DBMS <--> | | 
| etl i) ee oe | 
| Program Displays 
| etc. etc. | 
| 


Figure 3.3 Database System for SAMS. 


It was previously mentioned that a reduction in redundant data was possible 
through intelligent file, or relation design. Good design consists of properly matching 
the data elements. or attributes, of a relation so as to prevent data integritv problems. 
Wetherbe and Dickson [Ref. 22: p. 213] describe the common integrity problems as: 


1. Difficulty in accurately identifying, locating, or updating all records given a 
specific set of attributes. 


2. Needlessly repeating fields in records, therefore requiring redundant storage and 
updates. 


[Inconsistencies among data. 


(2 


J. No records within which to store certain fields. 


The process of normalization is a set of rules or guidelines which help a 
database designer build relations that munimize update anomolies and data 
inconsistencies. For larger systems with a high transaction rate, strict compliance with 
all of the normalization rules can lead to conflict with retrieval performance because 
normalization generally results in more relations. This then requires more effort to 
retrieve all the necessary data. The SAMS however, will be a relatively small svstem 
with a low transaction rate, and therefore the design should strive for maximum 
reasonable normalization. Excellent descriptions and examples of the normalization 
rules are given in Kroenke [Ref. 18: p. 286] and Kent [Ref. 23]. 

There are seven normal forms identified. and in consideration of the type of 


data involved in the SAMS, it may be difficult to apply higher than the Boyce-Codd 
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normal form (BCNF) in most cases. Briefly, the guidelines, or rules up to this point 


cuits 


ie 


ty 


ty. 


All records in a relation must contain the same number of fields and none must 
repeat. This is basically the definition of a relation in relational database theory. 


The second normal form requires that all non-key attributes are dependent on 
the kev. A kev is one or more attributes that determine a record. 


Third normal form is satisfied when no non-key attribute provides a fact about 
another non-key attribute. 


Bovce-Codd normal form requires that everv attribute that provides a fact 
about another attribute (determinant), must be capable of being a kev for the 
relauion (ie. a candidate hey), 


Thus, analysis concludes with the generation of DFDs, the functional 


descriptions, identification of the data and it’s structure. and consideration of the 


normalization policies for the database relations. 


Chr 
<> 


iY. SAMS DESIGN 


Tne design of the database relations for the SAMS is a critical juncture in the 


einent process. For the reasons discussed in the previous chapter, thoughtful 


c. 
C 
' a 
— 
O 
< 
“e 


design of these relations will ensure the flexibility and integrity of the svstem. 

Relation design is not an easy task. even for a relatively small system like SAMS 
With oniv a hundred or so data elements. A starting point is to logically group data 
elements as was done for the external reports and stock records in Table 2. We must 
also then consider the data elements that deal with generic ammunition information. 
allowance lists, NAR messages. addresses of other Navy units, and constant data 
referring to a particular ship (static data). If we assemble these lists independently of 
cach other. there 1s mucn data duplication which must be minimized for the 
normaization we require. 

Siemsione data Clements One 1elation, vet lim them to other relations, there 
must be common attributes between the two relations. However, these attributes must 
be unique so that the DBMS can locate the correct record. This normally requires that 
woeetelanionship be established to a Kev attribute, DBase I[f Plus requires that the 
attribute that is being searched for be an “index” of the relation. An index 1s a file that 
is created for an associated database relation which contains a particular attribute in 
alphabetical. or alphanumeric order and its associated record number in the database. 
This ailows the DBMS to quickly search for a particular value of an attribute in the 
index file and obtain the corresponding record number in the database file. When 
records are added or deleted from a relation, only the indexes are reorganized which 
could save considerable time in a large database. Moreover, many indexes can exist, on 
different attributes, for the same relation. 

With these considerations in mind, the SAMS data elements are separated into 
appropriate relations and indexed as deemed appropriate to accomplish the file 
relationships desired. The relation structures will be fully described with regard to 
normalization in the next section. 

Although compatibility in data elements or software is not required of the 
SAMS, as it is a stand alone system, it was desired that data elements used in the 


CAIMS be used by SAMS where possible. This resemblence would minimize any 


AN 
— 


difficulties in user understanding when referring to supply system or CAIMS 
publications. Also, since CAIMS already has a Data Element Dictionary (SDED), it is 
a question of not “reinventing the wheel”. If data elements in this dictionary were 
directly applicable to the SAMS, thev were used. Minor modifications in data element 
name or picture were necessary in some cases (COBQ@ie ss dace TIS itism eeu thie 
meanings were close enough to assign the CAIMS Data Element Number (DEN) to 
the SAMS clement 

Table 4 lists the conventions used in selecting the SAMS database and index 
names. It is easy to see that some sort of pattern is necessary in selecting file names, 
their number quickly grows beyond human memory. Table 5 conveniently lists the 
database files and their associated index and format files. A format file is constructed 
by the DBMS, with user interaction, to create ctlstom data entryesereens. Evemmnpmrs 
relatively small system is composed of over fifty programs and fifty files, therefore 
program and file directories are also needed. A complete program directory is included 


as Appendix C. 


A. SAMS PHYSICAL RELATION DESCRIPTION 
Table 6 lists the physical structure for all of the SAMS database files. It would be 


helpful to the reader to refer to this table throughout this discussion. 


1. Transaction File (ATR File) 

This file contains the data elements that relate specifically to a particular 
transaction. The key in this file 1s the ATR serial number (ATRSERIAT ake 
normalize to the Boyce-Codd Normal Form (BCNF), every determinant must be a 
candidate key, and the only key here is the ATR serial number. Every other data 
element should furnish a fact about the kev, and only the key, and this ts satisfied with 
one exception mentioned later. 

‘As mentioned in Chapter II, ATR numbers run from OOL1 to 999 and then 
repeat. It would take quite a few vears for the tvpical ship to go through 999 numbers. 
Repeating key elements can not be permitted so if there was a chance of this, tne old 
records would be archived. Old instructions required that ships restart their ATR 
numbers when “chopping” (Change of Operational Command) to another fleet. If this 
situation existed on a ship that SAMS was to be installed, the old fleet numbering 
seceunce should not be included in the initialization to prevent repeating key field 


values. 
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exile 4 
SAMS FILE NAMING CONVENTIONS 


peo acepase Files (, dt ) 


| 1. First two letters - 


Management "Am" 
THhird=281¢chtnaueeccer 


| ECncencs 


eeeindex Files (7ndx) 


| [ier irs. two letters - 


Management "AM" 


SyScen Prerix= Ammunition 


- description of file 


system prefix =- Ammunition 


2. Third letter - .dbf file description 

a. Requisition - "R" 

! b. Ammunition Data - "A" 
6, Tramsaction = "T" 
ad. Invengomy. — "i" 
e. Turn-in - "U" 

| f. Allowances - "Ww" 

| g. NAR Action - "N" 

| h. NAR Serial a 
i. Static Data - none 


j. Address - "D" 


Setormat Eiles (.£mt) 
| ie 
| Zs 


contents 


First-Third letter - 
Poucehi-aigiwenialetcer = @escription of .dbf file 


See ouren-El1Ggneamnecter = index file description 


tt ADD tt 


| TABLE 4 


SAMS FILE NAMING CON VE RaEI oreo ies) 


D. Exceptions 


1. DBSYSTEM. db - User's File (encrypted) 
2. CONTEILE. db£ - Contains Pile =) Pregranse<—— sce 
files 
3. DATAELEM. dbf - Data Element File 
. DICFILES. dbf = Files) Pivedeen., 
: 5. PROGFILE. dbf - Programs File | 
| | 


The ATR Status is a local SAMS data element which serves to indicate the 


| 
| 
| 


condition of a particular record. A transaction can be incomplete, ready for 
submission, or submitted. An “Incomplete transaction” is one in which the user has not 
completed entering the necessary data or he 1s not ready to say the data is correct. This 
is strictly a user assigned status and no inventory update takes place based on an 
incompiete or blank entry. When the user is satisfied that the data is correct, he 
changes the status to “ready for submission”, and inventory update takes place. At this 
point he may print the ATR for submission to the Radio Room or Communications 
Center. however he may not edit or delete the record. When the message is routed back 
from the communications personnel, verifying broadcast, the status can be changed to 
“submitted”, and the message Date Time Group (DIG) entered> fhe DiGi ae 
used on subsequent ATRs and thus must be retained. 

The National-Item-Identification- Number (NIIN) uniquely identifies a type of 
ammunition and can therefore be the link to the Ammunition Data file to obtain the 
Type of Maintenance Due Code (TMDC). The TMDC will be required on ATRs that 
involve Serial’Lot Item Tracking (SLIT) material. 

To uniquely identify an ammunition item that is or was physically in the ship’s 
inventory, not only the NIIN, but the Condition Code (CC), Activity Classification 
Code (ACC), Lot Number, and Component Serial Numbers (if applicable), are 
required. Multiple items with serial numbers can be included on one ATR, so up to ten 


serial numbers may be included in this record. Unfortunately, in one regard. variaole 


| 
| 





| 
| 


SA MoePILE GROUPS 


Bemwbite {. dbf) Index File (.ndx) Format Files (. fmt) 





AMREOUIS AMRSERUP ADDREQUI 
AMRSERDW 
AMRREQDD 
AMMODATA AMANALC ADDAMMO 
AMACOGSY 
AMAMCONC AMMODATA. dbt 
AMANIIN (memo field) 
AMTRANS AMTSERUP ADDTRANS 
AMTSERDW 
AMTTRCD 
AMTNIIN 
AMINVEN AMINIIN ADDINVEN 
AMICONCD 
AMIACCL 
AMTURNIN AMUSERUP ADDTURN 
AMUSERDW 
AMUNIIN 
AMALLOW AMWNALC ADDALLOW 
AMWALTP 
AMNARACT AMNNIIN ADDNARAC 
AMNSERUP 
AMNSERDW 
AMNARSER AMENARSR ADDNARSE 
AMSTDATA none ADDSDATA 
AMDADDR AMDUIC ADDADDRE 
AMDACTNM 
BPESYSBEM. db none none 
CONTFILE CONTNAME none 
DATAELEM DATANAME DATAB LD TEe 
DATAELSR 
Breer ilLEs Dyee hr I baer none 
PROGFILE PROGNAME none 


| 
| 
| 
| 
| 


record lengths are not defined in a relational data base system, so some storage space 


wil be wasted because most transactions do not involve items with serial numbers. 


Only rarely would a transaction involve more than ten serial numbers. In this case, a 


second transaction report could be prepared. 


Ca 
Ca 


The ATR Julian Date (ATRJULDAT) 1s the three-digit julian day of the year 
that the ATR is prepared and appears in the header line of the message. It will not 
necessarily be the same as the message DTG. 

The beginning and ending balance must be maintained in the Transaction file 
because the Inventory fiie is dynamuc in nature having the “instantaneous” stock levels. 
Thus the Transaction file is the historical record of stock levels. 

Quantity seems an obvious data element in the ATR, however if the 
transaction is a receipt or issue, the document number of the associated receipt or turn- 
in document is also included. This case would violate the Third normal form because 
quantitv is part of these documents. However, Quantity must be included because 
expenditure transactions have no corresponding document. 

The User, Source Identification Code {IDG ODE) is a similar situatonmemen 
receipts and issues the IDCODE would be the ship to or received irom someon 
shipping document, however in other cases it can take on other values. Thus it must be 
included as part of the record. 

Finallv. any narrative message (ATRREMARKS) must be saved and this is 
naturally the onlv place to do that. 

The preceeding description of the Transaction file and it’s structure mav have 
seemed rather tedious, however the reader should take heart that commonalities in the 


other files will not be repeated. 


2. Requisition File 

Serial number and julian date uniquely identify the requisition, while the other 
two components of a requisition document number are accessed from the Static Data 
file. The NIIN again uniquely identifies the item that is being ordered. 

The requisitionee and supplemental address UIC and service codes are 
included in the requisition file. Ninety per cent of the time, an activity’s LIC will 
determine it’s service designator code, however if that activity is a ship and it changes 
fleets, then it’s service designator code will change. The supplemental address 1s 
normally the activity at which the material will be received, or loadout activity. 

Requisition Status (REQUISSTAT) serves a similar purpose to that in the 
ATR file except that it must also be able to represent partially filled and cancelled 
requisitions. 

The remaining data elements are multi-valued codes which are all independent 


and describe the circumstances of the requisition, urgencv of need, required delivery 
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date, ctc.. See Appendix B, the Data Element Dictionary, for a complete description of 


these items. This file also satisfies the Boyce-Codd Normal Form. 


3. Turn-in File 

The turn-in file may seem to be a redundant file in itself because it will 
eventually represent a turn-in transaction (issue transaction). However, two 
considerations help to clarify the need for the file. First. a turn-in document mav be 
prepared ‘well ahead of the actual transaction date and the timing of the inventory 
upcate would become a problem. Certainly the inventory should not be updated uniil 
the pnysical stock levels change. Secondly, a turn-in document requires three or four 
data items that are not needed on a transaction report and thus the ATR file would be 
made needlessly larger just to accomadate these items. 

The turn-in file record must be able to uniquely identify an item of inventory, 
just as the ATR file must. Therefore the same five data elements: NIIN, ACC, CC, lot 
number, and serial number(s), must be included to accomplish this. 

The ATR serial number is provided to link the record to the transaction 
record in the ATR file. This data would be automatically appended to the record when 
the transaction document was prepared. 

Finaily, a link to the NAR Action file is necessary if the turn-in 1s in response 


to a NAR message. The NAR Serial member and the NAR Year accomplish this. 


4. Ammunition Data 

This file contains data elements that provide facts about specific items (types) 
of ammunition. The unique element is of course NIIN. This file essentially replaces the 
need to reference two or three large publications and ts accessed many times in the 
application programs. The Data Element Dictionary, Appendix B, contains complete 
explanations of these independent descriptors. 

One “confusion factor” still remains however. Although NIIN reporting, vice 
NALC reporting, is logical and consistent with good inventory control, NALC 1s still 
used as an identifier in NAR messages, allowance lists, and other documents. For 
vears, NALC has been the defacto unique identifier of ammunition items, and until all 
organizations begin using NIIN as such, the Ammunition Data file will serve as the 
NAR-to-NITN converter in application programs. 

It is questionable if the NALC in this relation could be considered a candidate 
xey. Many cf tne data elements realisticaily do provide a fact about the NALC, a non- 
kev field, so the Third Normal Form would be violated. This seems unavoidable in this 


case however. 
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5. Inventory File 
his file is suprisingly simple. The five identifiers of an individual item are 

there along with the MDD which will be associated with serial number controlled 
items. If the item is seriai number or lot serial number controlled (MCC "C” or MCC 
"E”), the quantity for the record will be one. Items that are only lot controlled or have 
no MCC will have a quantity that reflects ali the items in the lot. This relation has 
sucn a large kev (five data elements), that there are only two others that are not 
included, quantity and storage location. Boyce-Codd Normal Form is easy to attain in 
this case. 

6. NAR Action File 

This file contains reclassification data from a NAR message that affects 
inventory held on board. Only those NARs that are applicable are entered here. The 
NAR Serial File records all NAR messages received so that any missed messages can 
be Moved: 

Naval Ammunition Reclassification messages identify affected ammunition by 
NALC, lot number, and sometimes serial number. Since lot numbers are not 
necessarily unique, and a NALC may contain several NIINs, we must first determine 
the NIINs associated with a particular NALC. The inventory can then be searched for 
those NITNs, which are a key element of the Inventory file as well as an index. Upon 
locating an applicable NIIN, the lot number is compared with that contained in the 
NAR message. This procedure would be much simplified if NAR messages used NIIN 
as the identifier. 

The NAR Action File also contains the ATR Serial Number which took the 
acon the NAR called for. This would be automatically appended when a 
reclassification ATR was processed. 

Finally, this file contains a character field to record the rezsoneman 
reclassification, which is normally included in the message itself. Also a_ field, 
TAGLABEL, to record the label or tag that must bemattachea™ to the actual 
ammunition to explain it’s status. This label would be a staternent like, “For Training 


Use Only”,or “For Emergency Combat Use Onlv”. 


7. NAR Serial File 

This file’s purpose is to provide a convenient location to record all the NAR 
messages received, whether applicable or not. This method allows the NAR Action File 
to be much smaller. since non-applicable NARs are excluded. Thus we nunimize the 
size of a relation with nineteen fields by creating one with only three. This file is in 
Firth Normal Form. which means that it is in BCNF and it contains no transitive 
dependencies (fourth), and it can not be subdivided in any wav. 

S. Allowances File 

This file contains the authorized tvpes of ammunition and quantities that a 
stip may carry. Allowance Lists, promulgated by the Naval Sea Systems Command 
(NAVSEA), again use the NALC as an ammunition identifier [Ref. 3: Chapter 7]. 
Remembering that the various NIINs within a NALC group are functionally 
equivalent, it is clear why NAVSEA publishes the lists in this manner. A ship may 
carry any NIIN item within the NALC group to satisfy the Allowance List 
FEeGmMirements. 

The inclusion of the Activity Classification Code (ACC) in the Allowance file 
allows amimunition for other end uses to be shown in this file rather than creating a 
different file for each ACC material carried onboard. 

Finally, this file contains a computed quantity. USED’FY, which will be 
automaticailv updated during expenditure ATR processing to show the quantity of 
araumunition, whicn has a training allowance, that has been used in the fiscal vear. The 
system manager will need to reinitialize this quantity each vear. Performing the 
computation at this time and storing the value is a departure from strict normalization, 
however it is far more efficient than doing all of the calculations just prior to printing a 


training expenditure report. 


9. Address File 
The Address file contains pertinent data about other supply activities and 
commands with which a ship may conduct ammunition business. The UIC and Activity 
Name (ACTIVNAME) are both candidate keys, however UIC is less easily confused 
than two similar names and it is also cnlv five characters. This makes it better as an 
index, decreasing search time. There are transitive dependencies in this file; Activity 
Name and Location can determine Service Designator Code, however Boyce-Codd 


Normal Form is still attained. 


a7 


10. Static Data File | 

This file is unique in that it only contains one record, namely data about the 
ship that the SAMS is installed in. It furnishes information to application programs 
that need the ship's name, hull number, etc. to print documents and reports. The Fund 
Code is needed on requisitions and the Monitoring Activity (MONITACTIV) is 
combined with the Cognizance Svmbol to form the Distribution Code, used on several 
documents. 

The remaining database files are for svstem documentation and will not affect 


the Operational performance of the svstem. 


B. SAMS STRUCTURE CHARTS 

The last step in the design stage is to determine how the system will be 
partitioned into modules, or programs. These programs will operate on the database 
relations, via the DBMS, and interactively with the user to perform their function. 
Unlike a Data Flow Diagram (DFD), the structure chart presents system hierarchy, 
control, and communication. Appendix D presents the SAMS structure charts. 

Structured design has several measures with which to gauge the quality of a 
svstem’s structure chart. The first 1s coupling, which is the degree of independence 
between modules, and the objective is to minimize this. The second is cohesion. which 
evaluates how closely the activities within a module relate to one another. A module 
should be considered a “block box”, in that it performs it’s designated function with the 
surrounding modules knowing little or nothing about it’s internai code. [Ref. 15: p. 
Oe ae 

A database management system tends to make structured module design an 
easier process than in the past. The problems of data storage are removed from the 
application programs and handled by the DBMS. thus traditional input, output 
modules are not necessary. This fact allows programs to flow from one logical process 
to another without the traditional housekeeping chores. Previously, structured design 
techniques responded to this by making modules very small with single cohesive 
functions. A DBMS with a good programming language can produce programs that 
remain understandable and cohesive while allowing a chain of logical thoughts to be 
contained in one program. 

The SAMS is menu-drive when the selections are unambiguous, and almost 


conversational when the selections require a more detailed knowledge. Referring to the 
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major subsvstem diagram in Appendix D, we see that the main menu allows the user to 
select one of nine options, each is completely independent of the other. This is an 
example of low coupling which 1s desireable. Each subsystem then presents another 
menu which will determine what the user desires to do. The SAMS generally has four 
levels of hierarchy in it’s application programs: 

[. The maingmenut 

2. The Stiesvstemmndent 

». The application desiseq 

4. Utility programs (infrequent) 
Examples of utility programs can be seen in the Requisition Management subsystem 
under the Print Requisition application module. 

In general, very few parameters are passed in the svstem. Facilitating this is the 
fact that in dBase III Plus , a called program can manipulate variables in the caller 
program without parameters being passed. This can be convenient, but it can also have 
dangerous implications. The programmer must ensure that the called program does not 
inadvertently alter variables in the main program that were not intended. Of course, bv 
not using parameters, a programmer limits the usefulness of his programs by making 
them dependent on a particular application. For further background on parameter 
passing and implicit and explicit inheritance the reader is referred tc MacLennon 
[Ref. 24]. 
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Structure charts provide the programmer with a framework for the 
implementation of the various subsystems and individual modules, while the Data Flow 
Diagrams provide a guide to the logical processes of the subsvstems. Neither graphical 
representation should be regarded as “cast in concrete” however, the physical 


implementation may suggest modifications. 
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V. IMPLEMENTATION 


A. IMPLEMENTATION PROGRESS TO DATE 

Early in the developement of the SAMS, it was obvious that complete 
implementation and field testing would be quite impossible in the available research 
time. Therefore the author selected the portions of the implementation that would be 
the most beneficial to anvone continuing the effort, and provide a framework for that 
implementation. 

The design stage identified all of the programs necessary for the SAMS. They are 
listed in the PROGFILE database and may be printed with their associated data bv 
running PROGFILE.prg. Appendix C contains this listing. Approximately one quarter 
of the svstems programs have been implemented. 

The Requisition Management subsystem was fully implemented because it’s 
programs demonstrate a myriad of programming techniques to accomplish their tasks. 
There are modules to review databases, edit/delete, create documents, print documents, 
backup files, and various forms of interactive programming are demonstrated. Most of 
the other SAMS subsystems use many of these processes, so a close review of the 
Requisition Management programs can significantly decrease the learning curve for 
future programmers. Completed program listings are contained in Appendix E. 

In addition, the database, index, and format files necessary to operate the 
Requisition Vlanagement subsystem were created and loaded with sample data. 
Testing was performed throughout the implementation of these modules to show 
correct operation, although not exhaustive or as a dedicated separate evolution. 
System testing 1s obviously a critical phase of the developement process not to be 
slighted. Module independence will greatly facilitate testing and make rapid debugging 
possible. 

Many of the system documentation modules were also completed during the 
analysis and design stages and should greatly assist future programmers. These include 
the Data Element Dictionary, structure charts, program files, files directorv, and cross 


reference between programs and relations. 
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B. CODING STYLE 

Without repeating at length the ideas that have been presented throughout this 
paper concerning the interactive style of the SAMS, it might be worthwhile to bring 
together in one spot the essential points. 

First. SAMS must be easy tc use. Aithough larger ships mav be able to dedicate 
a single person to the responsibility for system operation as a primary duty, this will 
normaliv noi oe the case. Therefore the slant should be toward more information. 
rather than less, in the interactive process. This assumes the operator will not be so 
famuliar with the system that the extra information will be annoving. The Requisition 
\iamagement option presents the user with most of the information that could be 
gieaned from several publications. The difference is that the publications contain a 
whele range of logistics information, and the SAMS will present pertinent information 
ieeeceowUsers nced and nowmore., [herefore, the kev phrase 1s “complete. selective 
information”. 

The svstem administrator. or manager. must be knowledgeable of the instructions 
and pubiications that explain the present system, and the operators must have a 
worxing knowledge. The manager should understand the basics of dBase [II Plus, not 
to the degree of being able to program, but enough to be able manipulate relations 
shouid a problem arise. Moreover, he should understand the implications of his ability 
<o alter those relations. 

Finally, code documentation should primarily be contained within the listing 
itself. Placing it here will increase the chances of it being useful to a future maintenance 
orogrammier, and it will be easier to maintain of its own accord. Some authors feel that 
scurce code comments are perhaps the easiest form of documentation to maintain, 


[Ref. 17: p. 251 and 341}, and this author would tend to agree. 
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VI. CONCLUSIONS AND RECOMMENDATIONS 


The Shipboard Ammunition Management Svstem presented in this thesis is one 
viable alternative to the present svstem. It automates much of the manual record 
keeping, can prepare useful management reports, and produce external documents 
compatible with the supply system’s ADP equipment. 

There are several factors that make a stand alone system difficult to design. First. 
It must be compatible with different processing systems. It must automate manual 
procedures on one hand and on the other hand it must produce documents that are 
compatible with machine readable capabilities of the shore establishment. This 
dichotomy has in part been a reason why the svstem has been getting more difficult for 
the “customer”, the fleet user, to maintain. Machine readable ATR’s may eliminate key 
punching errors at the SPCC level, however they are incomprehensible at the user level 
except to the preparer. Every message that leaves a ship should be checked for 
accuracy bv at least two people prior to the commanding officer signing his permission 
to transmit, and this could run into considerable manhours if everyone must dig 
through publications to look up “funny codes and formats”. 

Thus, a second alternative to solve the problem is to extend automation 
capabilities to all ships from the shore based ammunition management systems. A 
unified system, with one set of rules, would definitely be superior to a fragmented 
system. The professional managers of ammunition ashore would then be able to extend 
their expertise to the fleet, in order to allow the professional users of the ammunition 
to practice that more, and management less. 

A second problem, as this author perceives it, is the overlapping of directives 
between the supply system and the fleet logistics agents. The fleet user should deal with 
one set of rules, perferably one definitive reference. For example, in the Pacific Fleet, a 
submarine weapons officer has three levels of guidance concerning conventional 
ammunition management [Refs. 3,4] and operational force commander instructions. 
Now, there mav be good reasons for modifications depending on the theatre of 
operations or weapon type, but the users guidance should come from one place. to 
munimize confusion. Consistently following this policy would probably reduce by one 
third the number of publications that a typical ship is required to carry, in weight if not 


in number. 
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The Shipboard Non-tactical ADP System (SNAP) is currently being installed on 
Navy ships in increasing numbers and is designed to handle many supply, maintenance, 
and administrauve functions previously done manually. This could provide an excellent 
vehicle to automate the ammunition management function. This thesis and others 
could provide functional, if not design descriptions of such a subsystem to SNAP. 

Finally, if the preceeding alternatives can not be economically or politically 
jusuhed. then a stand alone system. the SAMS. should be pursued. The author 
estimates two to four months of programming would complete the SAMS application 
prograins. then a pilot ship should be selected for the initial installation. The SAMS 
should run in parallel with the existing manual svstem to gather user experience, 
Moric w@meolcs momen iaiUst Usereincertace. This phase would be an extremely 
interesting follow-on thesis in itself. Ultimately there must be a program office for the 
SAMS. logically as part of CAIMS at SPCC, to provide guidance and installation 
assistance to the fleet. 

Therefore. the problems of conventional ammunition management can be 


handled in one of three wavs: 


l. An automated system within the CAIMS from SPCC down to all shipboard 
users. 


t 


Inclusion of ammunition management in SNAP. 


3. Stand alone ammunition management - SAMS 
The goal in selecting anv one of the three is to improve and unify the system, and to 


reduce the administrative burden on shipboard personnel. The status quo will not be 


suitable in the long term if we desire an increase in fleet readiness. 


7] 


APPENDIX A 
DATA FLOW DIAGRAMS 





Lor ped /2Ar/ 42Yz4rf—-0 





2 = eee saps 34/7 * 
J0O1I49S YUN 











astro SV ssoupPt 
i 
S, 
Y) 
r= 
SVOU0MI]/Y BL9T If C4S 3 
cD 
3c 
co 
cs 
> 
o@ 
SUuolpo0subs/ S4A9S 77 Cov, 
pond 
a2. 
GL) 
EO 
: < 
2 
Ly 
sh 5 
UI- Us] WoL pr Vas NIT wor Ss. 2 
qin. Ee Eee QQ, 
eS 
suosfisimsay Asod usAuT 





OLO0GQ Uolgztu v7? Us ct ff 





SUOlAIE (MODY 


SUOIL. IVSuUbA f 





pha? ‘OWuspy 


tee alae 








hAOL UDAUT 








purwr/ 7 047 





ors YvVN 
[Pr4aSs ay Yi 


Major Subsystem Diagram 
Level 1 





£/ 
[ae] 
Ssa220 UO pasng 
nee suolfr79/P9S 


“99104? ssae”n p26 
(nusw WleWw 












O 
oe 
o” 
aN Su4os 7) 
s\%0o vy 
=. Ty J 
25 7 > 
& /s 
. 
a 
Kn? 
of? 
y? ~ 
ADs Q 
obo hojdsr 
i pI sup 





P4lomseyy é ad s0ue 


awd 


ie a 


User Access/ Validation 
Level 2 


4 








Spuowa/7 407 


Level 2 





General Information/Documentation 






ee wee te 





bY 0d uol74 tun LAs 4 bf 





huopuvaul 


Sy 


s22u0mMo)/ jf 








Kos dorg 











PL 
"OY vy 
pouvmo//7 


Avy Js: 





Allowance, Ammunition Data 
Level 2 


Inventory, 





ie 





way.’ s~od 
HO DAIS WUO 


: Luapussul 
e ~malAngd 











Cae 
Le of! 

rod aus/ auo 
“eyut Ve 
haod usAuTZ | 
biog UOry [Uru pviAay 


eae 











C1812 
of oy ws o7 





Ao hs ouw 7§ 


2sooy) 





Allowance. Ammunition Data 


Displ 





av [Inventory 


Level 3 


’ 


w 


Inventorv 


eos 
uo! 
nod usauars 

aud sob 
onwly f° MItAIA 
passef4 90 









wor sod ausy/ 
2UO ‘haouwwne 









mmunition Data 


Allowance, Ammunition Data 
Level 3 


Pee 


Display A 





Maho 
a4 spo AQ 


Kromune >s00y4 5 


Inventory, 






78 


SoIUuBMO)/ f/ 





bf 1g] UOrs (UU HY 












7S 
“ 
spyalf Ie 
UO Jp OU4 AO4 ut 
20Uu0~70/// 
; “ 
oN 
Sa 


Inventorv. Allowance, Ammunition Data 


Display Allowance Information 
evel 


CH 





SUOIZDIOSUOAL 














D4°D WAdAS 


bBYYPG VolflunWwwy 









bP 

“Suvs / 
24777 

[ti PF 


SUO0lSs vuosuo4l 















SSOAPPY 
Dyprg VOI, SUN wis bf 
BLOT PIL IFS 























vorsey YYW | 


wi— usw] 

















SIIVUOMO/IY 





| 


Suorysss zy 





) 


Aof~lanuT 




















Se tala ce a 





bya bolplunwup SuUorzorveuwsL 





SS V4pPPyYy RAQg vonUuT 











gement 


Level 2 


Transaction Mana 


A 


80 






Ech 

ssc 

guo ‘spyalf 
je (psarav 


ma1Aay 






‘ ay 
oye ° 





ae 





a\\ 


DY OJ “os lfunwwp 





~» 
oe 


Cor 
‘gus] 
A ac/ wa! 
auUOo “$pep 2/7 
pet 2 2/ Bs 
maIaray 





















SUOlLIOSUDI/ 





a - Yo, z 0, 
"fOr Po uvsd ‘27h 
Jorsas y1Y 


ler 
CIDIAW 
242s eo? 
AO hanwwne 


>2s00y) 













Transaction Management 
INemiew Auli Pile 
Level 3 


CO 








es 








volfpoof! 


-SSO/IO¥ 












‘vor s0Suv4yf 


? O° ody 





422/°S 





Level 3 


Tranaction. Management 
Create New ATR 








SUOl 4 IOSUOLL 9 Sen 
orp Iain oA of fixXo 
ww 


KAY UsAut 












Love 





a/!7 





very, Je fog tn 
1Qo 
Ste 24404 








SuUuolyismooy 


OD 
CO 


Suosyprs 1 r78ay 


b? 0d Dy DIS 











Transaction Management, Create ATR 





SUDA DOLUYDAL 





bpog Se a Y4AS/N , 











SUOI4{IOSUOAL Ayo 4usnulT 


(44 Eg YN) YISN 


24° anf n129'90 90H 
(spit 42S “H4O7 “CIN 


Suolys 90S uUvA_L = 
























my 
aaa 
—, 
= 
i. 
Kev 
Ve 
at 
ape) suerl et 
Sory ZP 1495S Sao 
ubiss nk - 
ee 
>.3 
V4LPT VI4P4S Eo 
3 
5h? cS 
op? S 
‘oan 


UO OU TAS ° 
fopop uv”. 


YAIS/N 


Dynan] Y4jISN 








er ee 


AAopudanuTy 








SUOIZ 2OSUOIL 








so 2Uunsas/e/ 


Ka Of uanUT 





suolfImosuws [ 


BLOG USlgfunwuty 





Vol aee 
JIV Jd 
WATT CUI 


ee a 





Transaction Management’Create ATR 
Expenditure ATR 
Level 4 











VoIsdY avi 





Ee ee 
KaOgudnvy SU01po7suvs | 





W1VIS 


win 





S woz TOS vvsal 














GCC Pp 
mq apopdh 
purrs wiv 
apie 








vf-°d UgtA tunis 


2 
Cw) 


Transaction Management/Create ATR 
Reclassification ATR 








Khsoyzuan ut 


pOIVaS 
BUN 





Level 4 


86 


Suol, DOSUVA [ 


bpvogd VOrglunwwyl 





Surly ovOocuns / 











uoisi2ap 


d4sn 


brp 
UQIS!>22/P 
e a? vy 


4? 








SNLoOLS 
iv 


SUOI-fIgsUvs [ 








UO!IS fo0p 





G4S/N 





cv 


— 
= 
wD 
Gan 
VY 
cif 
ov 
cs cy 

Zo 

‘q@.- 

co o ~ 
a 

— .. 
() — 
Sy 
cw 
c3 
te 
- 









9GPr 
$7 Nee of 


> rty Y. 
-oO/ 6 OF 


you vu SY 








bL>G Yorg fUNUswH/ 





ad 


Level 3 





Ss vorzpoa0suva 





Tranaction. Management 
Print ATR Message 





SUDILIOSUDs/ 








Goss PP 
vofYtT 
#$°9 





SS 94PPY 








meee 


2} 








stu org isos 3 av 


SuOlZssirsay 


DLP VAigzlunwwpy 











sSoe4rPPYy 
DLOJD 21/474 S 








bs Dd vorslunwu 





SUCIAIL: 3 7¥ 





bL°o”7d vorflsunwwy 


wEP TD D474 S 





























SsorvPPYy a//a 
uals » ci nL 


mala ay 





Suorpicims rd . bd 














Vfsod uorpiu 1 wa cas bf 





ae —— ~— = 





Requisition Management 


2 


Level 


mM 
CC 








e 2's 
hooA a¢ avo 


:spopalf WF 
poprp a + S7°/ zu 
j12 J? matin 


pay! 049/ 








44 ‘Zao 4 9\*x 
-4°P vii foie 





uisition File 


i 


Requisition Management 


Review Re 


q 


Ve 


Le 


S16 


Suo/g!sirb 2y YISN 


oe¢ 
$14 vy4S 


oyif \——e | oss rSox 

































aS 3 
49] D4 lpt7oys Suoryg 1s 1M d/ 
27un uoss12eP 
< 
w 
ES 
SS F4PPy on 
ICG ESen 
429 tes 774 > 3 o 
[vig Ss oc D> = 
porpuercs] = Can 
be] AS 
+? 5 a 
ah 
oO 
~~ 





es Siar of "of ul 
Y »d] >Y ae77 

‘orn koe 24°) 
Eucmcea - 
wsosF npPP 
=a 


SODIOY 7 Ni 


Y4ISN Suorsrsimbsy YASN 











uols1D.a/? 





Suoryp/s! msoy 


gement 
QGUISITLONS 


Level 3 


SUOlygIs/ dD od 


D4 0g volt un laewy 


isition Mana 


e 
dit/Delete Re 


R 
E 


les 











Une ou 
Pos nh rgou a 
a7 us Df DIO / 
puro a og Mm 
foraas 4 o& 






oe 





VLOG DI4APAS 








uolf S s¢ ay 


vrnuvyw 


Surges srw8b oy 


vors12a ff 


G4ASN 


S$ Uo, /SINary 





gement . 
seen bl of 2) 


uisition Mana 
itions { 
Level 3 


Re 
Print Requis 


a3 









sy AVUWIA = 
JucrisioafP os 
: 20 
= 
oO 
onvV 
coi 
Cen 
= co 
. eS 
eos 
YSN 2 
ae 
30 
aq 


R 


Sy ADUDA 
/vorsr1zeP 


94 


TT a A a a a 








= ua / 





biog Wolgiumiwul yy 
SSou4uprpy 
CLO Vhs 





vy OT VOY sunw u f/ 











Ku OfVUQAVT 








SSvupPpYy 
b4O”d Vosff{tunuu lb 


voIrtfoy YWwV DII04? ob 





























Up—-Usry a Pe. 
9 


O4UG voIfIlunwwy 





Turn-in Document Mana 


gement 


Level 2 








Uul—-usrr] 





c?29 
way! Aod 
vaouos 2¥v9 





I¢e9 





ma lina 


Pa apy AO 


AvuotwwmpYs 





osooy ) 


> uo? 


gement 


Review Turn-in File 
Level 3 


Turn-in Document Mana 





> 


haar se 
YISN| Ne 
vc9 


VoIt?Y Y¥YN 





Lee 


gas 7 





vbYUd uolytu 17 as Ls Pf 


KuopuUuadAuT 








(sheet 1 of 2) 


ON 


Level 3 


Turn-in Document Management 
97 


Create Turn-in Document 


SSaouPrPUY 





ur—usry] TO Aa 








f 
vp uv”! 
at ee . (oad 


YASN 





ement 


(sheet Or 2) 


Level 3 


Turn-in Document Mana 


Create Turn-in Document 


a3 





Uul-UuAnyt 








vJog UVOIy4IUrwust/ 














Peg 
7Pr 

thr og 

uals 6297 


Pat 








yr2Yy> 


esi) 


eee sr 2379 









lpg 
pune 


fou sf! Ajizou 


AO ‘psora4 








gement 


Edit,’ Delete Turn-in Documents 
Level 3 


Turn-in Document Mana 


eee 


us usr 7 








Ul—Uasr 7 








“¥Q “oly lunuwy 








SSeuvpPpPpy 








vIeg DI404S 











usl— UA ml 








DL Pd VOsLIUNnUumy 








Ul ~ Uany 





YISN) 





ul— Us~w] 


gement 


-in Document_Mana 
Print Turn-in Document 
Level 3 


um 





100 








vortoy yv/V 














Iyr49aSs YYIV 








AaoyuoautT 








Uoryoy FYVN 





DJ OT Lolylunuwy 


[IAG Yy/NV 








OLA EY ee VIN. 





12!49S yrlyV 








LOD Hang Umwelt 


. Khuopuanuy 











NARS Management 
Level 7 





USI LI YV/V 












EE Z 


wot! sad 
UrDd2asIsS Quo 


G4S/N 





ee 
Pro, 
LE py) 


DI0YD 


AsopuaAul 















DLO] Uolp/U US Uf ff ‘2)4 1444048 
‘a N cna! Ao 
es 
AO ADU uA NS 





N32 Im 74 
2509490 





ome ee ee 


NARS Management, 
Review NAR Action File 


Level 3 


OZ 


GZ a 
VY V0 UOlYAIUYI wid f/ 





DOW 
SVT 









Cb 


sow 435 
‘Su as pur 
sry 4744 47Y 
swiv WU" 
2940297 














hsopuonhu 
rr ees periay 
yr2o #O4f oor, 


‘ ve 
PY WIN 4? 






ttre 


Kuo, usnuy 






JTOWV 


YAS) | OPI YISf 


ge 


Level 3 


NARS Management 
Process New NAR Messa 


™) 
Cy 
4 





Kuojpfuadnul 





“olp>e AYN 








1 29>| Ce au 
Sy*VNay BIN 
BA LV139S YN 


Udsn 


KuopuaasuTy 





nu prsos 
QAVS P40 


omy wasn 


id Kysa 








NARS Management 
Process ae NARS 
evel > 


104 





(:4addo 6 SF, 


Aid suragpucy) 
Sunpsbouy wadshc 


Sala wayshs 




















Sf4P4 0D aAMIY 277A f S 








Wolf? ayy lv 


) 





[°PLA9S yrNv 





SuolfovucuwKws / 








uf— uur / 








Suosgseimsay 








Say! IY = 
C8 


~~ >. 7 d NY2VQ 


Fof!z iV 1rq°19 








—e— re —_ 
= — rr i 





System. Vfanagement 
Level 2 


nN aw 


Cc) 
= 








Of ti.) 


BD{IdT Vvolptiunuwu b/ 


irs 














VAUG volrpslunMmwl 








KsOpuanvyT 





S$ vIUDMO!// 7 


Suorygrss 3 oy 








er — 


(>4 viad onde 6 ¢9) sof/a 








DY "J UO Nf 1 Vis A BY 











V6 
spsod 22/ 


99 uv0;/10/ 


hus] 











sy sod ay 
so442 











ports 


Level 2 


Generate Internal Re 


106 


DAN : 


NAME ; 


LONG 
Dane : 


DESC: 


USED 


RE-S; 


am me aw ¢ 


TN 
DEN : 


MARTE : 


LONG 
cue: 


DESC : 


Use D 


Ree 5 : 


DEN: 


MaME : 


LONG 
Pac: 


Bes : 


weed 


KEES: 


DEN: 


NaMe : 


LONG 
Sas = 


BeoC.: 


eeD 


hoe o: 


SEN: 


NAME : 


LONG 
Perey 


nee 


52D 


Mee S : 


- 
DEN: 


NaMe: 


LONG 
Pee: 


wesc : 


Jis=D 


nEFS: 


APPENDIX B 
DATA ELEMENT DICTIONARY 


Ds 
CSERNUM 
ee Component Serial Number (First) 
mis). | pees. | 
Poe fot instance Oceaeseraaeaed Componéntgin a transaction 
Pepore, Curn-in document "or a wak detion file entry. Tne 
cefiniticon of component serial number is the same data 
etement S=RNUMBER. 
IN: AMNARACT , AMTRANS , AMTURNIN 
D330 
~SERNUM | 
ee Component Serial Number (Second) 
Lo 
Same as OSERNUM, except second instance. 
I'l: AMNARACT,AMTRANS , ANITURNIN 
D330 
2SERNUM | 
ae Component Serial Number (Third) 
Same as OSERNUM, except third instance. 
IN: AMNARACT,AMTRANS ,AMTURNIN 
D330 
3SERNUM | 
co Compenent Serial Number (Fourth) 
ACl 
Same as OSERNUM, except fourth instance. 
IN: AMNARACT,AMTRANS ,AMIURNIN 
S20 
4SERNUM , | 
TITLE: Component Serial Number (Fifth) 
K(16 
Same as OSERNUM, oeeeut fifth instance. 
IN: AMNARACT,AMTRANS ,AMTURNIN 
D330 
5 SERNUM | | 
ea Component Serial Number (sixth) 
KiGls 
Same as OSERNUM, except sixth instance. 
IN: AMNARACT ,AMTRANS , AMTURNIN 
D330 
6SERNUM | 
ae Component Serial Number (Seventh) 
%(16) | 
Same as OSERNUM, except seventh instance. 
IN: AMNARACT ,AMTRANS ,AMTURNIN 
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DEN: 


NAME : 


LONG 
rugs 


DESC: 


USED 


Reese 


DEN: 


NAHE : 


ena ties 
at WJ IAT 


‘IN: AMNARACT, AMTRANS , ANTURNIN 


Tae 


D330 
7SERNUM 


Poa Component Serial Number (Eight) 
(ao 
Same as OSERNUM, except eight instance. 
Ii]; AMNARACT ,AMTRANS , AMTURNIN 
D330 
3SERNUM | | 
ae Component Serial Number (ninth) 
; X(16 
: Same as OSERNUM, except ninth instance. 
IN: AMNARACT, AMTRANS , AMTURNIN 
ous 50 
9SERNUM | 
en Component Serial Number (tenth) 
: weet 1. 
Same as OSERNUM, except tenth instance. 


+ BECES SUB 


pares Access Level 


: Determines the level of user access or priveledges within 


the SAMS system; ranging from one to eight with one the 
most powertul and eight themtowest. Usedstcmrequmare 
access to various menu options from the main menu. 

iN= DESY STEM 


>; ACCOUNTNAM 


TITLE: Account Name 


; K(24) . . 
: An optional 24 character fleid in the users file that 


may be used by the SAMS manager to record the users 
full name or other information. 


IN 3 SbeS 4s cet 


esses 
1 ACT CLUGODE 


TITLE: Activity Clasisuitcation Code 


rey 
: Indicates the intended use of ammunition stocks carried 


a ship or activi. 
IN: AMINVEN,AMTURNIN,AMTRANS , AMALLOW 
: D192 
: ACTIVNAME 


TITLE: Activity Long Name 


Rae) 
: Name of the activity as listed in the Plain Language 


address Directoré@s (20AD) @sieaval labpwiemmeineawise 
in cnese lear Wainer 
AMDADD2 


KC26 
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NAME: ADVICECODE 

EGNG TIZLE: Advice Code 

mes X( 2) 

eee: advice Codes are numéeric/alphabetic and flow from the 
requisiticn originators to initial processing points. 
The purpose is to provide coded instructions to supply 
sources when such data is considered essential to 
the supply action. 

USED IN: AMREOQUIS 

a>: 


mR 

OE 

NAME: ATRJIULDAT = 

LONG Tlile: Anmunition Transaction Report Julian Date (SAMS LDE) 


mae: 999 
DESC: The julian day of the year on which the ATR was prepared. 
Consists cf the three number equivalent of the day of the 


wea 


year. 
Moe) IN: APTRANS 


Rees: 

DEW 

Dein: ALTRREMARKS  _ . 

LONG (150) Ammunition Transaction Report Remarks (SAMS LDE) 
bbws oh tb 

DESC: Any narrative remarks that may be necessary to place on 


an ATR to clarify a transaction or provide loadout or 
A avesorormation. 
He20 IN AMT RANS 


Beli; C089 
Pee: ASRSERIAL 
° gray Ammunition Transaction Report Serial Number 
e.: io 
DESC: A three digit number pees ee to the sequence of an ATR 
Bose Ine Hinsegsmalin LuonnC0l (eoesoJsandethen repeat 
Powed bal ticular Unie. 


USED IN: AMTURNIN,AMTRANS , AMNARACT 
REE S : 
DEN 


NAME: ATRSTATUS | 
LONG TITLE: Ammunition Transaction Report Status (SAMS local elem.) 
Pee: A 
DESC: A one character alphabetic code that indicates the 
status of an ATR document. 
USED Iil: AMTRANS 


NAME: BEGBALANCE 

LONG Via Beginning Balance (SAMS local data element) 

ree: X(5 

DESC: The inventory balance of a particular ammunition item 
Beton tO a transaction Occuring. 

Use) IN: AMTRANS 


Mente: CALLED _BY 

LONG TITLE: Program called by 

eae. 4(20) | | 
FESC: The program that calls the program in question. 
ie) IN: PROGFILE 
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DEN: 


NAME : 


LONG 
eee 


DESCE 


Ss) 


REFS: 


DER: 


Nas ; 


LONG 
PI ae 


DESc: 


USED 


Koes 


Diet|. 


NAME : 


PIG. 


DESC: 


USED 


Beco? 


DEN: 


NAME : 


LONG 
pe 


DESC: 


USED 


REE On 


DEN: 


NAME ; 


LONG 
Ble 


Dest: 


USED 


RES: 


DEN: 


NAME : 


LONG 


DESC: 


US=) 


Remo 


DEN: 


NAME 


Wisk bth acaiis 


LONG 
ELCs 


DESC: 


CALES 
TITLE: Programmeaius 
&(100) 

The name of the program(s) that a program calls. 
lif; PROGY EE 


EODES 
ites 
memo 

The CAIMS codes associated with a particular data 


Data Element Codes 


element stored in a separate memo field. 
IN: DATAELEM 
C003 
COGSYMBOL ~ 
ia Cognizance Symbol 
x 


The Cognizance Symbol is a two position code prefix 
to National Stock Number to identify and designate 
the Inventory Control Poeun sottiecwmon adency alan 
exercises Supply Management of the item. 

IN: AHMODATA 


GO0se 

CONDCODE 

Taree Condition Code 

A single alphabetic character which classifies 
material in terms of readiness for issue and use, 
or to identify action underway to change the 
status of the material. 

IN: AMINVEN,AMTURNIN,AMTRANS 


CONTAINS | | 
ane Relations used in a program 


The relatwions that vine metenenced omisedsby ma 
articular program in the SAMS. 
EN: CONES Es 


K020 
DEMANDCODE 
TITLE: Demand Code 


: K(A) 
Demand Code, (R)recurring, (N)non-recurring 
IN: AMREQUIS 
(ae (oeec, 
G436 
DEN 


TITLE: Data Element Number 
K(6) 


A six-digit alphanumeric mata cieta useagtc 
identify data elements resident in the Sete data 
base. Obtained from NAVSUP Pub 508 oHee G 
Management Program Standard Data zlemen Le VPOnary 
and keyword index. 

Ie: DATAERE!M 
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DESeKrPTIO 
tives: Description 


: X(40) 


Chto) es te 


tT eae 


te of a data element or the content of a 
ile. 
Pee eGEILES, DATAELEM 


me OO] 
» DOCIDENTIF 
ne Decument Identifier 
waters 


: Tne document identifier code provides identification 
oz eacn document type (i.e. requisition,cancellation, 
Eau ew-Up, transfer ,etc. } 
IN: AMREQU? 
(A 


Us 
Wine) (a) 


: KOCZ3 


DOCIJULDAT 


eas pocument Julian Date 
| 


a> + 
~—— 


dentifies the date that the document or requisition 
was established. Consists of the units digit of the 
calender year and numeric values equivalent to the 

day of the year (julian date). 

IN: AMTRANS 


KOO02C 
DOCSERNUM 
a Document Serial Number 


Tae portion of the Document Number which applies to 
Exe eserial number of tné document. Used in the 
Wediodecroneriie 1t Gan indicate the serial number 
Segetenen ae reqiisitiean Or a Turn-in document, 
differentiated by the transaction code. 

IN: AMIRANS 


: K048 
: DOCSVCCOD 


TITLE: Document Service Code (SAMS local data element) 


2 oa 


: The service designator portion of the Document 

Number which is required on an issue or receipt ATR. 
GOpeaemed from the requisition or turn_in file. 

IN: AMTRANS 


A002 

: DOCUIC | en 

ae Document Unit-Identification-Code (SAMS LDE) 

A 

The UIC portion of a Document Number that is required | 
Snmeumissiie Of feceipt SER. Obtained from Che™requisition 
or turn-in file as appropriate. 

iN: AMNTRANS 


P25) 
POLELASCOD 


il 


cone PEE Tee Department of Transportation Class Code 

DESC: A code assigned to the classification assigned by the 
Department of Transportation to indicate the type of 
hazard involved when shipping the ammunition item. 

USED IN: AMMODATA 

Roos: 

PEN: 

NAME: ENDBALANCE 

LONG eo Ending Balance (SAMS local data element) 

DESC: The inventory balance of a particular ammunition 
item after a transaction has occured. 

US=ZD IN: AMTRAHSs 

Ae bot: 

DEN: C042 

NAME: FEDSUPCLAS he 

LONG TITLE: Federal Supply Classification 

PIC: 9(4) 

DESC: A code assigned by the governmaent to designate 
various groups cf common use, commercial type items. 

USED IN: AMMODATA 

Reo oe 

DEN: 

Name: PLUS eat 

LONG TITLE: File Name 

PIC. ce) | 

DESC: Name of the file and may be a ge baba Se ea a 
Or an index file(.ndx), or a format file(.fmt). 

USED IN: SD ier rees 

REFS: 

DEN: 

NAME: PILE So vee 

LONG TITLE: File Type 

PIC: X(4) 

DESC: Type of file; database(.dbf), index file(.ndx), 
ormat(.imt 

USED IN. DLGE Lies 

Rao ot 

DED: 

NAME: FRECLASNM a 

LONG TITLE: Freight Classification Nomenclature 

PlGimn (32) 

DESC: The proper shipping name prescribed for the material 
as required by Dtte es Cen) Pare 1) 200 ecmege 
DOT hazard class(spelled out). Given under the GBL 
Description column in NAVSEA OP2165, . 
usually 2-5 word desc. and Class " " Explosive. 

USED IN: AMMODATA 

Ree Ss 

DEN: KO2Z 

NAME ee UNDCODE 

LONG TITLE: Fund Code 

PIC: Kx | | | 

DESC: aA two character code which 1s used to cite accoun and 
data on Navy requisitions. Fleet units use fund code Y6 
and shore units use fund code 26. 

USED IN: AMSTDATA 

Reis: 
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DEN: 


NAME : 


LONG 
EEC: 


ba e : 


1 
yyy 


hie 
WMe-4+Olet 
Ul Cyirees, a 
Cy << eet «< 


JaeD 


mee o ° 


DEN: 


MENTE : 


CNG 


eee: 


BESC : 


EoED 


eS : 


OSM. 


MALIE : 


CilG 


FeaG 


ESC. 


USED 


Bie : 


DEN: 


LYRETE : 


LOTIG 
PIC: 


aye 
WW 


(5) 
; @ee UIC 


GROUP_NAME 

TITLE: Group Name 

an elght character word that must be entered by the 
Deer Orethe SAMS in onder for the protection 
eimetsomns of ehe system to allow him access 
Pomenc ys ten. 

ieee b> 7 ST2M 

Ole 

mae ARON) CD 

eer Coast Gaurd Hazardous Material Code 

wa ey ees a ; 

: Classification of military explosives and hazardous 
munitions as determined by the US Coast Gaurd and 
Seu forth ingNavs-=aA OP 2165 Vol.2. Ammunition aboard 
al. classes of ships must be loaded | 
um accorcance witn the guidance contained in CG108. 

IN: aMMODATA 

BUCLNUMBER 
ee Hull Number of vessel (SAMS local data element) 
ren } 

Hull Number of shiv; SSN685,FF1096,etc. 

Eee UADOA, SiloeoAL 

TDCODE 
pies: 1.0. Code (SAMS local data element) 


of the 1ssuing unit or a code indicating the 
aCC or other source of the material involved in the 
metiodeelor Om eiemUlc of the receiving unit oY 4 
See-mincdicating the ACC changed to or 
other destination of the material. 

IN: GTPRENS 


KO02B 
SULIANDATE . 
an Document Julian Date 
¥(4) | 
Identifies date document or requisition was established. 
Rij teemose Geo is medemuiles clsresor tne vcurrent 
year and the right three are the numeric equivalent of 
the day of the year. 


IN: AMREQUIS ,AMTURNIN 

(a), (b) 
A045 

LOCATION | 
ea) Activity Long Name Location 
X(30 


Plain Language Address of activity or ship in overhaul 
or a precommissioned vessel. 
IN: AMDADDR 


LOGIN_NAME - 
tier:  .Og=1n Name 
4(8) 


46 


DESC: An eight character name that must be entered paepersy 
by the user of SAMS for the security- functions of the 
system to recognize him as a legal user and allow 
access to the system. 

USED IN: DBS 7SrEy 

REPS 

DEN: 

MAME: LONGI GIES 

pe TITLE: Long Title (Local SAMS data element) 

eke ee 

DESC: Official description of ammunition data as desciueed 
in Stock List of Navy Ammunition, TWO1LO-AA-ORD-0910 (SPCC) 

USED IN: aliiepars 

REeo: 

Dent 

NAME: LONGTITLE | 

LONG TITLE: Data Element Long Title 

ELC? Coe) 

DESC: The full title of the data element as used in the SAMS. 

USED IN: Danese le 

Peon 

DEN €20m 

NAME: LOSNUMBER 

LONG TITLE: ammunition Lot Number 

PIC: X(16) 

DESC: A number assigned at the time of manufacture or 
assembly to identify a group of rounds of 
ammunition, each component of which 1s manufactured 
Bygone Menus asa under uniform conditions and 
which 1s expected to perform in a uniform way. 

USED IN: AMINVEN,AMTURNIN,AMTRANS , AMNARACT 

ReGo: 

DEN: CQQ3A 

NAME: MATLCONCOD 

mle TITLE: Material Controimeode 

EG an 

DESC: The Material Control Code(MCC) is a single alphabetic 
character assigned prea NereY c ROY Maio neo 
Indicate to fleld activities that special resorting 
or control requirements may be necessary. Used in 
CAIMS to indicate SLIT controlledmiacen. 

USED IN: AMMODATA 

RErS: 

DEN: C026 

NAME > hia 

TONG TITLE: Maintenance Due Date 

PIC: X(3) 

DESC: The month and the year of the next scheduled _ 
maintenance on the item of record(MYY). MDD is 
assigned to serial number and serial and lot number 
controlled items only. 

USED IN: AMINVEN,AMTRANS 

REPS: 

DEN: K082 

MaMIE : MEDIASTAT 

Eo Tee Media and Status Code 

Ee 

DESC: The Media and Status Code is a single character 
ane ieee eee the type of Suan y status required and 
the method in which it is to be furnished. 

USED IN: AMREQUIS 


lid 


s 
+ 


C)'d fae, 
Pei eid 


a C. 
hm 


ee 


~« 
+ 


eC 
BIiGIMiAO win 


WOO + Otte 


-e 
©?) ome 


‘soi 
WOM. 


~™ 


ae . fo ht 


pO es) 


I * lee 22 OO 
hRIWIne oO pent 
ere 

o GUMNe 


THM 


ac) 
J 
Sa 


hie. 9 


IN: 


IN: 


‘yO 
(NO 


WOO) 


(a), (b),(¢), (a) 


C076 

Pe SOAGEOTG 

TITLE: Naval Message Date-Time-Group 
x(14) 


ine standard means of identifying a naval message: 
The DIG identified the day, the hour(24 hour clock), 
aan the month, and decade/year of transmittal. 
Ariis 


SONI TACTIV 


Bupee oni toring Activity (5anS local data element) 


“A 
;: The shore logistic or operational command which monitors 


Seo oomereg seleoetcaretc and transaction reports. ft. 1s 
DScUustneGchIMMeGE on Wien the Gognizance Symbol to form 
ce, Diseri bWemen Code. 

SOT OATA 


: Naval Ammunition Logistics Code 


he NALC is a four character alphanumeris assigned by 

SPCC to conventional ammunition items which do not 
Meeemeae escapirened Dob criteria for PODAC assignment. 
Application of NALC and DODAC are identical. 

IN: AMMCDATA, AMALLOW 


: Name of data element 


name of a data element in the SAMS. 


=: NAMEOFPROG 


TLGLE: Name of Program 
(3) 


: The name of a program used in the SAMS. 


Pil SCONGEILE 


C073 


: NARDTG 


TIFG 
K(14) 
The Date-Time-Group of the NAR message 
Ii: AMNARSER 


: Notice of Ammunition Reclassification Date-Time-Group 


: KARREMARKS 
TL 


: Notice of Ammunition Transaction Remarks (SAMS LDE) 


ement concerning the condition of affected 
mmunition following a NAR action and/or the reason for 
ha NAR action; normally expiained on the NAR itself. 


IN: AMNARACT 


Els 


DEN: 


NAME : 


LOG 
Pa Ge: 


PESeE 


IN: 


: C084 
: NARSERIAL a we: 
TITLE: Notice of Ammunition Reclassification Serial Number 


3 ) 


: One of two sub-elements comprising the NAR Number. 


NAR serial sérves the two-fold purpose Olea aurac 
all items reclassified by a NAR action and identifying 
the numoer of meclassiticatien act rome medaed 
during a given vear. 

IN: AMTURNIN,AMNARSER , AMNARACT 


: C083 
Wan 030.427 ,05 — — 
epmae Notice of Ammunition Reclassification Year 


: One of two sub-elements comprising the NAR Number. 


NARYEAR identifiees the decade and year in which the 
Notice of Ammunition Reclassification(NAR) was released. 
IN: AMTURNIN, AMNARSER,AMNSRACT 


C304E 

NETEXPLWT | | 
TITLE: Net Explosive Weight 
A(10) 


The total weight of all active Sapte sae components of 
an explosive device which includes primary explosives, 
secondary explosives, pyrotechnics, and propellants. 
Data should be expressed in whole numbers 
with the units.) (50 SeempeecoaKe.) 


IN: AMMODATA 


GO0Se 


: NEWCONDED 


TITLE: New Condition Code 


The Condition Code of ammunition items involved in a 
transaction after their change in Condition Code as a 
result of the transaction. 

AMNNARACT 


DO46D 


: NIIN 


PEE : National Item Identification Number 


oe nine-position non-significant number assigned by the 


Defense Logistic Services Center to each aRRuOve aeem 
identification under the Federal oteweees rogram. 

May bye ee dae lal S,AMNARACT 
a}, 


GO0SE 


E: OLDCONDCD 


TITLE : Old Condition Code (SAMS local data element) 


hh 
: The Condition Code of ammunition items that are involved 


in a transaction prior to their change in Condition Code 
as a result Of they Graneacc ion, 
IN: AMNARACT 
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DEN: 


NAME: PASSWORD 

LONG TITLE: Password 

Bue: X( Ve) 

DESC: A’ sixteen character password of any case that must be 
piMmecmedoroperly by the Wser of SealSein order forthe 
security functions of the system to recognize him as 
a legal user and allow access to the system. 

Wee) IN: DBSYSHaM 

Rar : 

Dee : 

eee: PICTURE 

BoeuG Tithe: Picture of a data element 

21C: X(6, 

DssC: The type of the data element, ie (X)character, 
(3)numeric, etc. and the length of the data element. 

BSED itt: DATAELEM 

‘© SSE 

Bell: KC25 

NAME: PRIORITYCD ~ 

aauG alan Priority Code (Issue-Priority-Designator) 

Cec 3 

DEsC: a Series of two-digit numeric ccdes assigned by the 
originator cf the document which expresses the relative 
importance of the requisitioned material movement and 
the military urgency of the material movement and 
2SS5ue transact wens. 

Weed) TN: AMREOUIS 

feco: 

BEN : 

NAME: PROG_NAME 

BONG T1ilS: Program Name 

PIC: X(8) 

DESC: Name of a program in the SAMS. 

USeD iN: PROCFiL: 

Rae S 

DEN: X024 

femie: PROSCODE 

LONG TilLe: Project Code 

PIC: X(3) | oa | 

Beoe-. & code assigned by the malitary services or DoD to 
PeeWeety a Specific proyect of a general or special 
Peeeea! Matiroutemeqecogn ton through out )the 
Sistrzputien Syscem. 

USED IN: AMREQUIS ,AMTURNIN 

Pees: (a)y(o),(c) 

DEN : 

Nee: PURPOSE 

LONG TITLE: Purpose of a program 

Pee: XU? 

OSC: The urpose of a program in the SAMS. 

Vee. eh: PROGreBE 

MEE S : 

vEN 

NAME: QUANTITY 

LONG me ®uantity 

mele) 22 me 

DESC: Quantity in per unit-of-issue amounts. For quantities 


use an H in the rightmost digit to 


Peaeor than 99999, 
i be 


indicate thousands. Normally all positions shoul 
filled tam including leading zeros. 


ay 


IN: AMREQUIS ,AMINVEN, AMTURNIN, AMTRANS , AMALLOW 


REFERENCE 
TITLE: Data Element References 


Plc. KG7 0) 


UeoD 


REEFS. 


DEN: 


NATE 


LONG 


Paes 


DESC: 


ess 


RoGoe 


DEN: 


NAME : 


LONG 
BEC: 


DESC: 


USED 


Reno: 


peti: 


NAME ; 


LONG 


: The Navy or Supply publications which fully describe 


the purpose and use of a data element. 
IN: DATAELEM 


: KOLG 
2) REQCELDADE 


pe Required Delivery Date 


; When used on a requisition, this element consists of 


a three-digit julian date which indicates the date 
that the material is required by the requisitionee. 
IN: AMREQUIS 


REQUISSTAT 
TITLE: Requisition Status (SAMS local data element) 


: K(A 
: A local system code (Vomeadwedte Che sscauusecmed 


requisition action, Vex. tneomple ce ameca 
Submitted=nct-fil led were. 
IN: AMREQUIS 


AQQ1 

ROUTERSHT =~ a 
EVE Activity Routing i denwifie:. 
x 


: A three digit alphanumeric or alphabetic code 


assigned to Inventommconerol Point, invemcoqy 
Managers, Distribution Points, and designated storage 
points. Used to indicate the intended recepient, the 
actual shipper, or vde@ien orig. aculvie, 

IN: AMDADDR 


C017 
SECRISKCOD _ tential 
cee Security G€lassiercacion €ode 
This code designates the degree of physical security 
assigned to an item of supply. 
IN: aMMODATA 


K048 
SENDTOSERC | a 
cage Service Designator Code (of requisitionee) 


Service Designator Code of requisitionee, PAC, LANT, 
etc.. A code that identifies a service or element of 
a service. 

IN: AMREQUIS 


Ca), (Bb). de jena) 


4002 
SENDTOUIC ae ~~ 
TITLE: Unit Identification Code of re@quiemtionee 


118 


Fie 5) 

DESC: UIC of requisitionee. Identifies a ship or shore 
activity uniquely in the manner specified by individual 
military services for accounting and other purposes. 

USED IN: AMREQUIS 

Rees: (a),(b) 

rz KOO2C 
ieee: SERTAL 
i ae Requisition/Turn-in Serial Number 
=SC: The portion of the Document Number (DEN K002) which 
applies to the serial number of the document. Under 
CalMS, ships use sequential numbers 8000-8999 and then 
repeat when necessary. 

oa) Ii; AMREQUIS, AMIURNIN 

meee: (a), (2), (Cc) 

Baie D330 

fees: SERNUMBER 

LONG asin Component Serial Number 

Bee: X( 1S 

besC: An identification number given to each item 
manucactured within a particular lot of a given 
stock number. 

Uae) IN: APILNVEN 

eoS: 

Dali: KO43 

Nerla: SERVEODE 

LONG TITLE: Service Code 

Pre: & 

@=--- Sycoce that identifies a service or element of a 
service. 

USED IN: AMDADDR,AMSTDATA 

Rae: 

Den: 5002 

tee: SalPTOUIC 

cars ee Unit Identification Code of receiving activity 

mes 7.2 

D=SC: Identifies a ship, shore activity, operational unit 
qeemey, GOUtheGeon, Of Gener Organized entity in the 
manner specified by the individual military 
service/agency PoreoccouUnelng Or OLhek purposes. 

USED IN: SMTURNIN 

RES : 

Da 

Mame: SHORTTITLE 

LONG acne Short Title of ammunition item (SAMS data element) 

Eee X( 20 

D=SC: Short description of ammunition item for quick 
rererence. 

USED IN: AMMODATA 

Rigas : 

Dene. KOZ1 

Nem: SIGNALCODE 

CeiG TItLE: Signal code 

PIC: X(Aa) . | 

CESC: This code designates the fields ee columns) which 
contain the intended consignee (ship to) and the 
activity to receive the pills and effect payment 
Conga £O:)'s 

Uoen IN: AMREQUIS 


ia 


DEN: 


NAME: 


LONG 
mae + 


DESC: 


USED 


SEES: 


DEN: 
cS 


NAME: 


eG 
mC: 


BeEsc: 


SOURGR ee ik 
ee. Source File of the data element 
AD 
The files (relations) in which the data element 
is used. 
IN: DATAELEM 


SLORSGe Ee 
TITLE: Storage Location 
&(30) 
Tne location onboard a ship where particular 
anmunition items are stoned, ex. small dunoelcecor, 


(SAMS local data element) 


ready service locker, Magazine (compt. numper), etc. 


US=2=D IN: Suave 

Panior 

DEN: K048 

NAME: SUPADDSERC | _ 

LONG ee Service Designator Code of loadout activity 

miele 

DESC: Supplemental Address Service Designator Code, loadout 
point. A single alplhamecdesenatwcesitdnaeesea Senvice 
or element of a service. 

USED IN. AMS Ee UeES 

Reso: 

DEN Sage Z 

NAME: SUPADDUIC ae a 

eee ee Unit Identification Code of loadout activity 

Meson ce A 

ewes gees ceueas Address UIC, loadout point UIC. | 
Tdentifies a shipgomesnone actly ie mene tenants 
the manner specified by its service for accounting 
and other purposes. 

USED IN: AMREQUIS 

PEGS. 

BEL: 

NaME: TAGLABEL 

LONG TITLE: Tag Label (SAMS local data element) 

EiC: nies 

DESC: A short narrative jtidesis placed science aoc ecm cre 
must be attached to NAR affected ammunition to 
explain the conditions under which it may be used 
OF i fie Bay be used ane to segregate it trom other 
unrestricted use ammunition. 

USED iN: AMNARACT 

Rene 

DEN: €OiL0 

NAME: TMDC | 

eee TITLE: Type of Maintenance Due Code 

Pale oe 

DESC: A code indicating the type of maintenance to be 
performed on the item of record. Applies to 
torpedo MK 46 and ALM (Air launched Missiles). 

USED IN: “Anng@upars 

Res 

DEN : 

NAME: TRNGALLOW 

LONG TITLE: Training Allowance (SAMS local data element) 


20) 


Ord 
JR 
(MN 


AG 
nym 


ee 


Ilys 
bege 1 Onpen 


a 
iT 
yh) 


Wikd 


i 
hom 
Git 


CJ'd tt 


DEN: 
NAME 
LONG 
=e: 


DESC: 


C: 
2sC;: 


ray 
UY 


I eae ias ks 4 


I: 


ae: : 


IN: 


aS) 

the unit-of-issue quantity of a particular ammunition 

litem that a ship or unit is authorized to expend in 
a fiscal year for training. Promulgated in the 30000 
series NAVSEA Shipfill Allowance List. 

iN: AMALLOW 


TURNINSTAT | 
TITLE=: Turn-in Document Status (SAMS local data element) 
aa 
The status of a turn-in record line item, 
exvs=necomplete, ready to print or use as an input 
Pergo. .0r AlLReacuioneconolete . 
IN: ANTURIN 


- A002 


CIC 

Bey” Umseco lGentirication Code 

x 

Edeneifies a ship, shore activity, operational unit 
Agena mmmcOnuGdGtor,. OF Other organized entity in the 
manner specified by the individual military 
Se@umee agencies FOr accounting Or Sther purposes. 

aMDADDR,AMSTDATA 


D9 Z 


: UNITNaME 


me oe 

ho) ) . 

Name of own ship as listed in the Plain Language 
Address Directory (PLAD) if available, otherwise 


n the clear name. 


: Activity Long Name (own ship) 


"MN: AMSTDATA 


C305 

UNITOFISSU 

Unit of Issue 
aA 


: An abbreviation which represents a determinate 


AMOUMENOnMgUaneley and Serves as 4a unit ot 
measurement when issueing tne item, ex. BX,EA,etc. 
=M: AMMODATA 


BOs: 
UNITPRICE | 
MmeDbe: Unie Price 
oO). -. eo ; 
the price of the individual item of supply per 
Un lees sSsue . 
AMMODATA 


USED/FY | | 
eo Training Allowance used in current fiscal year (LDE) 
oe . 
The quantity of a particular ammunition item that has 
a training allowance that has been expended in the 
CURGe ie 16Gal Veo tener senate Curpose. 
IN: AM&SLLOW 


ed 


Program: 
Calis: 


pWRiaoSe: 


ca Ledesy - 


Program: 
Calis 
EMEDOce.: 


Called By: 


Program: 
Calis: 
Plea ese 


Called By: 


Program: 
Calis: 
Purpose: 


Called By: 


eae 
Calis: 
Purvoose: 


Cailed By: 


Program: 
Calis: 
Purpose: 


Called By: 


ee 
Cal Ss 
PULpOSe: 


Called By: 


eee 
Calls: 
Purpoose: 


Called By: 


Program: 
Calls: 
ote 
Cal 


Program: 
Calis: 
Purpose: 


Galledeny. 


ed By: 


APPENDINVGE 
SAMS PROGRAM DIRECTORY 


AMSMAIN 

INFOMENU, INVMENU , TRANMENU, REQMENU ,NARSMENU ,REPTMENU, 
MANGHENU , TURNMENU 

Main prg. that branches to all subsystem menus, 
EO. Se hy celi. 

PROTECT (dBase III+ security program) 


BCKUPATR 

none . 

Backups ATR file to another storage device for system 
PEOECECE LON, 

TRANMENU 


BCKUPNAR 

none 

Backups NAR Serial and Action File for system 
POtectlon:. 

NARSMENU 


BCKUPREQ 

mene ae 

Backups RequiSitmemeellée tCosanotnemesiremacqemecwmeac 
for sys. proséetien: 

REQMENU 


BeRvreca 

none 
Allows system manager to bacup all system files. 
MANGMENU 


BCKUPTUR 
none 
Backuns Turn=-in Fille to another seonagescdevicomaon 
ste DroOLection. 
IRNMENU 


COMPLREQ 


nene 

Cas detailed review of requis. with all pertinent 
ata. 

REOMENU 


CRENEWRO 

none . | | 
Creates new requis. with detailed user instructions 
REOMENU 


CRENWATR 

none 

Allows user to create an ATR record, 
TRANMENU 


collects all data 


CRENWTID 

REVWADD 

Creates a turn-in/issue line-entry. 
TURNMNENU 


Called By: 


Program: 
aaa S . 
rurrose: 


Called By: 


EO Se : 
Called: 


Program: 
calis: 
Purpose: 


Called By: 


Program: 
CaLa's : 
Purpose: 


Cailed By: 


DATAELEM 

none | 

Allow the user to review the Data Element Dictionary 
of the SAMS. 

INEGHENYU 


DOCCODES 
none 
Presents 


system and CAIMS codes. 
ENFOHEY 


DOCCEP TI 
none 
Presents system and CAINS definitions. 
INZSOMENU 
DOCHIEES 

nene 

Presents SAMS files and their purpose. 


: MANGDOC 


DOCPRGS 

none 

meee tS SAMS programs and their purpose. 
ANGHENY ae 


DOGREFS 

none 

Presents system and CAIMS reference documents. 
INFCMENU 


EDI EaTR 

none 

Allows use to edit or delete non-committed ATR's. 
LaANMENU 


SDR EO 

Bos 
llows editing and deleting of non-submitted 
requisitions. 

REGMENU 


EDITTURN 

none 

Allows editing or deleting of non-submitted turn-in/ 
issue document. 

TURNMENU 


INEOGHELP 
none. 
Provide system operating help accessible throughout 


rogram 
INFOHENU 


INFOMENU 

TNE OTE? tN EORELP POCCODES ,DOCDETIN, DOCREFS, DATAELEM 

Gives general system info. and help programs. 
AMSMAIN 


INSOLE ST 

none 

Give general system purpose,operation, 
information. 


and other 


Called By: 


Prograaqm: 
ee 


Purpose: 


Called By: 


Program: 
Gaeis: 
Purpos?2: 


Called By: 


Program: 
Caumise 
FuUnooSe. 


Called By: 


Program: 
Calls: 
Pumpese: 


Called By: 


aCe 
Calis. 
Fumpiose- 


Called By: 


een 
Cadas: 
Pee OSer: 


Called By: 


Froemdin: 
Calls: 
Fuspose: 


Called By: 


Program: 
Calls: 
uO Sek 


Called By: 


Ete ram: 
Cails: 
FUEDOSE ; 


Called By: 


Program: 
Calls: 
PUunRDOSe: 


Called By: 


eae 
Calls: 


Purpose : 


INFOMENU 


INVALLOW 

none . 

Deo Allowance List information to SAMS user. 
INVMEN 


INVAMMO 

none . — 

Allows user to revlew generic ammunition data 
INVMENU 


INVMENU 

INVVIEW, INVAMMO , INVALLOW 

Allows user to review generic ammo data,inventory 
status,allowance. 

AMSMAIN 


PVvRa Po 

none 

Prints varlous inventory reports depending on user 
Gesires. 

REF IENU 


INVVIEW 

none 

Allow user to review onboard inventory with various 
ied. Cems. 

INVMENU 


MANGADHC 

none ma | 

Aliows administrator to create ad hoc quéries and 
views. 

MANGMENU 


MANGARCH 

none 

Allows administrator to archive old records. 
MANGMENU 


MANGDOC 

DOCEFILES PROCEED Ss TRUCCRE 

Allows system manager to select various documentation 
files for view. 

MANGMENU 


MANGEDIT 

none a 

Allows administrator to globally edit and delece 
system records. 

MANGMENU 


MANGINIT 

none Lae . 

Start-up and initialization insemect rons star 
administrator. 

MANGMENU 


MANGMENU 

MANGEDIT ,MANGSEC ,MANGARCH ,MANGRECV ,MANGADHC, 
MANIGINIT ,BCKUPS 257 0CCr I Eres Deer os 

Selects type of system management desired 
by system administrator. 
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Called By: 


O'UC)tU 
jw mw ry 


Um a 
CG ips 


©) 
op 
tt 


called By: 


Pog. an: 
@e0-s: 
Purpose: 


Called By: 


Program: 
Gattis: 
Pum OSse : 


Called By: 


Program: 
Calls: 
Pwr Dose: 


Called By: 


aac 
Calls: 


rurvose: 


Called By: 


Progran: 
Caries: 


AMSMAIN 


MANGRECV 
none 
Allows administrator to recover system from failure. 


: MANGMENU 


MANGSEC 

PROleeT  (CBasewiil+ Security program) 

allows adainistrator to manage sécurity and 
aoe S55) Sy sieem- 


: HANGMENY 


MISCREO 

none 

Refers wser to other coc. for abnormal requilsl. 
operations 

RECMENU 


NARSMENJ 

REVNARSF , REVNARAF , PROCNAR, BCKUPNAR 

atlows review of NAR file,stockcheck, action 
file update, packup 

AMSMAIN 


OSROREPT 
none 

Prints outstanding requisition internal reports. 
REPTMENU 


PRINTATR 

none ae . 

miLoOWSeprinting of the various types of ATR’s. 
TRANNENU 


PRINTREQ 

REQ1348 , REVWADD | | 

Allows printing of differant requisition formats 
REOHMENU 


PRINTITUR 

none 

Prints turn-in document. 
TURIMMENU 


PROCNAR 

none 

Processes NAR message: stock check, update inventory, 
retain data 

NARSMENU 


PROGFILE 

none . 
Allows user to review and print system program file. 
{ANGDOC 


REPTMENU 

HNVREP? OSKOREP!, IRALREPT 

Prints various internal system reports. 
AMSTtMAIN 


REQ1348 
none 
Prints screen display of DD Form 1348 with 


> 


Called By: 


Program: 
Calls: 


Purovoose: 


Called By: 


Program: 
Calls: 
rurpose: 


Called By: 


Program: 
Callse- 
Purvnose: 


Called Eye 


eae 
Calis: 
Purpose: 


Called By: 


Program: 
Calls: 
Purpose: 


Called By: 


Program: 
Calis: 
PuReesc- 


Called By: 


Procram: 
Calis: 
Purpose: 


Called By: 


aoe 
Calls: 
eee e 
Cal 


Program: 
Calls: 
Purpose: 


Called By: 


Program: 
Calls: 
Purpose: 


Called By: 


pneaaen: 
Cats 7 


PUBDOSS : 


Calied Sy: 


ec by: 


Gata £illedeany 
PRINTREQ 


REQMENU 

Re REDE en nee ie 
Crue 

Branches to all requisition processing sub-functions. 

AMSMAIN 


R=VNARAF 

none 

Allows user to review the NAR Action File. 
NARSMENU 


REVNARSF 

none 

Rllows user to review the NAR Serial File. 
NARSMENU 


RE VWADD 

none 

Allows user to review address file. 
PRINZTREO, PRINTAL A Cxa ie D 


REVWREQ 

none 

Orfers summary(exec.) review of all requis. with 
most imp. data. 

REQMENU 


SURUGERT 

none | 

Allows system manager to review the SAMS design 
structure charts. 

MANGDOC 


TRALREPT 

none 

Prints Training Allowance internal reports. 
REPTMENY 


TRANMENU 

VIEWATR, CRENWATR, EDITATR, PRINTATR, BCKUPATR 
Selects type of ATR management desired. 
AMSMAIN 


TURNMENU 

TURNREV, CRENWTID ,EDITTURN,PRINTTUR,BCKUPTUR | 
Sees type of turn-in/issue management desired. 
AMSMAT 


TURNREV 

none . . 
Allows review of turn-in file. 
TURNMENU 


VIEWATR 

none 
Allow user to review the ATR file. 
TRANMENU 
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Generate Internal Reports 
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APPENDIX E 
SAMS PROGRAM LISTINGS 


1 AMSMAIN.PRG 


*AMSMAIN.PRG 
*First Version of AMS main program 
AWritten by LT. Steven L. Smit USN June 4, 1987 


clear ail 

sect talk off 

set status OL 
Seeecasety off 

set deieted on 
Soerecontirm off 

set delimiters on 

eae Gelimiters to "{{" 


clear 
@4,10 to 10,70 double 
eae. 22 say "| U.S.S. Navy Ship" 
@ 6,22 say i Shipboard Ammunition Management System! 
mie to 20,78 double 
@ 12,27 say UTOGayeus |e a pe eee ee ; 
TS ectmcavidareq)),c) +, ' + str(year(date()),4) 
emis, 10 say “Author: LT. StevensL. emaeny USN 
@ 22, 10 say '' Press any key to display the Main Menu " 
walt 
Go while .T. 
clear 
vext 
SAMS MAIN MENU 
1. General Information/Documentation 
2. Inventory/Ammunition/Allowance Data 
on ea ee Management 
4. Requisition Management 
5. Turn-in Document Management 
6. NARS Management 
7. System Management 
8. Generate Internal Reports 
88. Exit to dBase III Plus Command Level 
S93.) Ee oul lS =POseecperating System 
endtext 


@1,0 to 24,79 double 
fest to 3,78 
@eie 1 to 18,78 


Steue 0 to MSELECT . 
@ mo" SaveNEnces VOUrecemocetlon (Get MoeLECT pieture "99"! 
rea 


co case 

case MSELECT = 1 
do INFOMENU 

case MSELECT = 2 
do INVMENU 

case MSELECT = 3 
do TRANMENU 

case MSELECT = 4 
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do REQMENU 
case MSELECT = 5 
do TURNMENU 
case MSELECT = 6 
do NARSMENU 
case MSELECT = 7 
do MANGMENU 
case MSELECT = 8 
do REPTMENU 
case MSELECT = 88 
clear 
set talk on 
set status on 
set safety on 
set deleted off 
return 
case MSELECT = 939 
élear 
Guay 
otherwise 
@ 22,16 say "Not a valid selection--' 
@ rida eat "Press any key to try again." 
wal 


endcase 


enddo oe 
clear all 
return 


BCKUPREQ.PRG 


BCKUPREQ. PRG eee | 

This program backs up the requisition file to another storage 
déeVicemnon eyeuen Protecelon: 

Written by Li. Steven L.gemniuGn, USN Sl sept. 1367 


lear a | 
5,15 say "Requisition File Backup" 


TVUVAA +H 


ext 
This selection will copy the current up-to-date contents 
of the Requisition Filemtosvourn backup por ay Giski iieeds 
important to do this after each session in which you change. 
the contents of the file, justin case something catastrophic 
happens to the hard disk. 

endtext 


@18,5 say "Place the pace Gok disk with the Requisition" 
Q@19,5 say "File on@at in@drive: &- 


store |" "to MEONn enn . 

@ 22,10 say "Are you ready to backup the file? (Y/N)"; 
oe eco RM picture". 
Wed 


1f MCONFIRM = "y" 


run BACKUP AMREQUIS.dbf A: 
5 run BACKUP AMREQUIS.dbf A:/A 
walt "Backup Complete - Press any key to return" 


else 


endif 
return 


return 
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COMPLREQ.PRG 


3 
PeCONPEREO PRG | ; 
: ae tO view detailed requisitionpdata 


< Written by LT. Steven L. Smith, USN 15 June, 1987 
clear 

Grear all 

Goawhiile .T. 

@i, 10 to 3, 60 double 


¢ 3" 15 say "View Complete Requisition Data" 

2 

text 
1. SpecificemRequisition (* must know serial number *) 
2. All Requisitions (* newest to oldest *) 
oe Oumn 


enctext 
lamO,0 to 24,78 double 


peonre "| to CHOICE . 
@18, 15 say BER Suchen Ces Weegee CHOICE picture "!" 
rea 


do case 

ease CHOLCE = sau 
clear 
store 0 CoO SELEGTION ee . 
@ 10,10 sy Lomee, the Negus ose serialjnumber:"'; 
came Oe pacture "9999" rangess000,8999 
rea 

Selec ane é 
use AMREQUIS index AMRSERUP ,AMRSERDW 
seek SELECTION 


Jf found) 
clear 
exit 
else 
@ 14,10 say 'That serial number is not in the file:" 
Walt 
mclear 
endif 


case CHOICE = "2"! 
select D 
use AMREQUIS index AMRSERUP ,AMRSERDW 
goto bottom 
clean 
exit 
Case. CHOICE. = 30 
clear 
close databases 
return 


otherwise | | 
@14,10 say "Not a valid selection-" | 
@15,10 say "Press any key to try again" 
Wage 
clear 


endcase 
enddo 


select. € 
use AMMODATA index AMANIIN 
select D 


do while .not. bof() 
set relation to NIIN into AMMODATA 


ee 


store C->NALC to AMARK 

store C->SHORTTITLE to BMARK 
store C->UNITOFISSU to CMARK 
Store C->COGSYMBOL to DMARK 


set relation to 


store SENDTOUIC to EMARK 
store SUPADDUIC to FMARK 


select B 
use AMDADDR index AMDUIC 
GCLO.ES 
seek EMARK 


Lf Seung o 
store ACTIVNAME to GMARK 
store LOCATION to HMARK 


else 
Store | '' to GMARK 
store '" ' to HMARK 


endif 


goto to 
seek FMARK 


if found() 
Store ACTIVNAME to IMARK 
store LOCATION to JMARK 


else 
store '! ' to IMARK 
store " "' to JMARK 


endif 


select A 
use AMSTDATA 
goto bee 
store SERVCODE to KMARK 
store UIC to LMARK 


ect D 


,9 say "Document Number: " +KMARK+LMARK+" ''+; 
(LtGiMtS te SERIAL) ee JUL EANe ATE 


5 say "NALC: '+AMARK 
4, 20 say "NDLIN: alia) 
4, 40 say "Short title: '+BMARK 


6, 5 say "Quantity: "+QUANTITY 
6, 25 say “UNLE+Onorssule ys tehace. 
6, 48 say "COG Symbol: ''+DMARK 


8, 5 say "Send tome SENDTOSEs Gio phe et le, 
rtrim(GMARK)+"', "+ rtrim(HMARK) 


5 say "Supplemental Address: '+SUPADDSERC+SUPADDUIC+; 
Hoot rtrim(IMARK) +", "+ rtrim(JMARK) 


5 say "Project Code: ''+PROJCODE 
25 say "Doc.eideme.: '+DOCIDENMI 
47 say "Media/Status Code: "+MEDIASTAT 


5 say "Signal Code: '"+SIGNALCODE 
24 say ''Demand Code: ''+DEMANDCODE 
45 say "Advice Code: '+ADVICECODE 


Sasay “Prion code: "+hREORI Ti yep 
32 say "Required Delivery Date: "+REQDELDATE 
, 45 say 5 eon Status: "+REQUISSTAT 
1d 48 to 20,66 
skip- 2 
1f CHOICE = 3 
@22, 5 say "Press any key to return" 


Wn 
@m 
N te 


if 


aay 
O 


= 


= 


™“ 


~ 


~ 


™ 


AAD ODA OAD DAD QO DA ADA DOD ®M 
rm Feb RAP PPP 
oOo MAO bPP NONND 
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enddo 


Wait Wow 
close databases 
reeurn 

enait 

me Dor ( ) 


@ 22;°50 sayeeend cfs tie” 
endif 


GO Wille «1. 
Store " ™" to MCHOire: 
@ 22,5 say "(C)Continue, (R)Repeat, (X)Exit ae 
CotemencuCe picture "I" 
read 
do case 


Caseq Geter — 3 © ).0OR. MCHOICE = "R" 


if DOL) 
goto bottom 
clear 
exit 

else 
clear 
exit 

endif 


case MCHOICE = "x" 
ellear 
close databases 
return 


otherwise 


eo 23 c0usay igs a valid selection, press any key:!! 
Wateen 
GZS a7) clear 
@ 24, 1 clear 


endcase 
enddo 


close databases 


Ye tCusn 


a 


A A 


CRENEWREQ.PRG 


CRENEWRQ. PRG a 
Procram to create a new requisition 


Seek eon by LI. Steven L. Smith, USN 8 June, 1987 


evear 


set bell off 


clear a 


a 


use AMREQUIS index AMRSERDW,AMRSERUP , AMRREQDD 
2,15 say “ CREATING A NEW REQUISITION" 


endtext 


@ 
¢ iene to 3,47 double 
> 
i 


Requisitions require some coded information that is very 
Gitficult to remember. Each screen in this subprogram will 
ask you for information and offer a description of the 
anformation and the choices avaiiable to you. Some items 
age mandateny on a requisition, and the screen will tell 

ow so, bue at will not ppevent you from leaving the item 

lank. It 1s important then that you check to make sure the 
requisition 1s complete before submitting it. 


14] 


iG 
> 


wait " Press any key to start entering data’! 
@ 5,0 clear 


KRAKKAKKKKKKKKKKAK Serial Number Decision ***xXRARAKAKKKKKK 


goto top 
store 1 to COUNT 


if ( COUNT + SERIAL ) = 9000 
text 


NOTE: The requisition serial numbers have reached 

8999 and should be restarted at 8000 IAW 
SPCCINSE, 6010, 2286 You li have ee 
opportunity to do that by continuing. 

endtext 

@iG7 5 to-elZze double 

walt 

cleats 

endif 


do whi lesa. 


C070 Cledie ton S50 

@ 2,15 say "Requisition Serial Number " 
@ 1,10 toms ee  waouble 

store | ™ tomGnoue: 

store 0 to Veena 


@ 9,8 say 'The next sequential requisition serial number is: "; 
+ltrim(str(COUNT + SERIAL) ) 
@ 10,8 say '" Is that serial number 0.K.? (Y,N)" get CHOICE ; 
Bee uae eM 
rea 


lf CHO LCH aay" 
VSERIAL = SERIAL + COUNT 


exit 
else 
1£ CHOICE. = Une 
@5,0 clear 
Cext 


WARNING: A non-sequential serial number should only 
be used whee’ reach requisition 8999 and need to 
reset the numbers back to 8000 IAW SPCCINST 8010.12D. 
The system will alert you when this happens. A serial 
number less than the one reported above could be a 
duplicate; the System also attempts to chee mera 


this 
endtext 
@6,5 to LS e75ercouple 
do whale. 
store, "Ree sMGHOITCe 


@ 17,6 say "Do you still wish to choose a serial"; 
a Se than " + ltrim(str(COUNT + SERIALS); 
ar ce 

get MCHOICE picture "@!"! 

read 


if MCHOTEE = "'N!! 
Clear 
exe 

endif 


af MCHOICE <> “Y..AND. MeHOTGRyc> a 
@ 22,8 say "That issnotja validgresponse-- " 
@ 23,8 say "Press any key to try again: "' 
Walt Od 
clear 
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encicg 


PE eMCHOREs. = yl 
GO “Whi besa. 
SVORemomcO. creread, 
@ 22,8 a "Enter the requisition number:'"; 
eens ieelcewme "9999" range 8000, ; 


read 
set index to amrserup,amrserdw,amrreqdd 
seek VSERIAL 
LE Sound, ) 
O clear 


GO ler Oe say "That is a duplicate serial number--' 
Glico cay = tesseany key to try again:" 


Walt! Ni 
eeu 
exe 
endif 
enddo 
Me HOt Chm am y" 
ie ie 
endif 
endif 
enddo 
else 
Mime HOLGHc> "YY" “AND. CHOICE <> "N" 
@12,8 say "That is not a valid response--'' 
@13,8 say "Press any key to try again " 
Wesear 
elear 
endit 
endl & 
endif 
LE*MECHOTEE = yt 
exe 
endif 
enddo 


close databases 


(estos (een Se oe pe gee Ce 8 et 


(ST, BOs See ee LP ae ees ee 


clear 
Segre i COmVvN tL on 
@5,10 say 'National Item Identification Number --NIIN'" 
ime 5) to 6,70 double 
ao while <T. 
srore’ >") to CHOICE 


@8, 15 say "Do you know the NIIN of the item you wish to" 


@ 2 15 say "order?(Y/N):" get CHOICE picture "!" 
rea 
do case 
case CHOICE = "N" 
text 


Go to the ate Management program from the main 
menu and find the NIIN of the item you wish to order. 


If this is a new item not yet in the database, be 
sure to add it. Contact the SAMS coordinator or 
Weapons Officer if you do not have the access to 
do thse 

enctext 


wait 
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clear 
close databases 
return to master 


case CHOICE = "y" 
@i11, 10 say "Enter the NIIN (leave out the blanks)"; 
F get VNIIN picture "@t"' 
rea 


use AMMODATA index AMANIIN, AMANALC 
seek VNIIN 


Pew councd 


do whites. 1. 
Stooge." '’ to MGHOTEE 
G° ts, 5 say ‘That TINeyston: 
set heading on 
display NIiN,NALC,SHORTTITLE 


@18&, 5S tay “HsBthis the correctyitence, mee 
2 Get MCHOLEE pre rimern tn. 
rea 


do case 


case MCHOICE = ''y!! 
@ 7, 0 clear 
exit 

case MCHOICE = "N! 


text 
Go to the Inventory Management program 
from the main menu to verify the NIIN. 
endtext 


walt 

clear 

close databases 
return to master 


otherwise 
@20, 10 say "That is not a valid response’ 
@ 21, 10 say "Press any key to tuyeagqaina! 
walt 
@7, 0 clear 


endcase 
enddo 


i MCHOICE = 'y" 
exec 
endif 


else 


@15, 10 say "That NIIN is not in the General" 
g 16, 10 say " Ammunition Information file." 
text 
Go to the eee eno Program from the 
main menu and verify that NIIN. 
endtext 


walt 

clear 

close databases 
return to master 


endif 
otherwise 


@ 10, 10 say "That 2s not a valid response-=" 
@ 11, 10 say "Press any key to try again: " 
walt 
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Cif woeclear 
endcase 
enddo 


use Sanat index AMRSERUP,AMRSERDW,AMRREQDD 
append blank 
repiace SERIAL with VSERIAL, NIIN with VNIIN 


@7, 0 clear _ 

@ 10, 10 say "Requisition serial number " + str(SERIAL) 
@ll, 10 say "created for NIIN " + NIIN 

ie 


SO ew Oe OR ee 


See tele ee Oe ie Oe Ue ee lk ce 


Clear 
ieee) to 3, 50 double 
Cee coesay ''Guantity" 


use AMHODATA index AMANIIN 
seek VNIIN 


Seer cece | The Unit=-of-1ssue for NIIN ' + NIIN + ", "; 
+ SHORTIITEE ? “1s: " + UNITOFISSU 


use 

use AMREQUIS index AMRSERUP,AMRSERDW,AMRREQDD 
seek VSERIAL 

store u VEO COURANT EY 

3 

text ' 

Hiemquamtity must be given as five digits. So if your 
pee is ess sendmeehat, fill in the positions to the 
ert with zeros. (Example: aaa 325 would be given as 

00325, 5 would be given as 00005. If you are ordering more 

Pucdteel2o7 Use alee ina ene rIgmemose position for 

thousands and adjust the other numbers acccordingly. 

Ref. sor Cel lomeovlO, 12D Pana o-Z0at . 
endtext 
? 


: 
Gizzyeto say "Enter the uantity you desire: " get VQUANITY; 
Prceure tet 
read 
replace QUANTITY with VQUANITY 


clear 

@ i, 10> to 3,50 double 
@2, 23 say "Julian Date" 
5 

? 

te 


NOTE: The 4 digit julian date on a requisition that will be 
transmitted by electronic media Ree) must be 
ooo aa to the date-time-group on the message. so 
if your radio room or communications center can not 
transmit the message on the ay Cue cninmeeney will, 
it might be best to leave the date blank below ( by. 
just Roscoe <RETURN>). Or you could put the date in 
dnd Giande uideer, | 
On a manual requisition, DD form 1348, this 
requirement does not exist, so just put down the date 
you expect to turn in the requisition. 
Julian Date Format: (YDDD) 
Y - last digit of current year (ex. 1987 - 7 ) 
DDD - julian day of year ( use 3M calendar 
Ref: SPCCINST 8010.12D Para 8-208g(3) 
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endtext 
? 


store | " to VDATE | 

@ 22, 15 say "Enter the Julian Date or press <RETURN>: "'; 
get eee picture eK" 
rea 


replace JULIANDATE with VDATE 
KARKKKAKKAKAKKAENG Julian Date Decision *X*RKKAKKAAKKAKK 


ao) Requisition and Loadout Point ***x*xxxxkxx 
eleat 

C1, 10 toms), GU™ombre 

2, 15 say "“Requisitlion@kouting and Loadoue Pointe” 


Naval message requisitions always go to SPCC ech anise e to. 
PA., NOQO104. Requisitions sent via DAAS format always go to 
DAAS (Defense Automated Addressing System), Dayton, OH. 

_ (Ref. SPCCINST 8010.12D) 
However, fleet instructions vary on who should receive 
requisitions if submitted by message(DAAS incl). Therefore you 
should indicate below who will receive the requisition or be 
the primary action addee on a message. This is necessary to 
assign the proper routing identification code. 


The See ote ae address is the location where yeu plan to 
actually receive the material and load it out. You need to 
fill this in so thalugthe SEERA system will know where to 

sca the material and from which supply point to fill the 

order. 


The next screen will show you the most common supply 
activities and vessels in your area ( and beyond y 
A complete list is in NAVSUP Pub. 485, App. /. 

endtext 

walt 

@ 4,0 clear 

elose database 


use AMDADDR index AMDUIC 


store ™ "Sto VsERy een 
S2OReu. co VULC 
store ! " to Vollbsner 
Sitomems ' to VSUPUTE 
GOCO.toD 
do while .not. eof() 
ase nove op ES a ae 
if eo 
@17,10 say "That's all the activities on file." 
endif 


@18,5 say "Enter service code of requisition recepient:"; 
get VSERVCOD picture "1!" 


read 
@19,5 say "Enter the UIC of requisition recepient:"; 
ge ae Dlcture® § kXKAK” 
rea 
@ 20,5 say "Enter service code of supplemental address: '"'; 
ee eae pecture-= !" 


rea 
@ 21,5 say "Enter UIC of supplemental address: "; 
Soest picture "XXXXxX" 
rea 


do while .T. 
store " " €6 GHeme: 


@ 22,5 say "Want to see more locations or review again? (Y/N)"; 
Gate picture "1!" 
rea 
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do case 
case CHOICE = als 
exit 


G56 eee Perma AND. CHOICE <> 'y"! 


@ 23,5 may ore valid choice, press any key:'" 
wait |! 
G 237aeelear to 23,70 


case CHOICE = "y" 
@4, 0 clear 
exit 
endcase 
enddo 
it GEOtcs = "'N! 
exit 
endif 


MisCHOTCE say’ AND. eor Cd) 
ea. top 
4 = clear 

endif 
enddo 
use 
use AMREQUIS index AMRSERUP ,AMRSERDW,AMRREQDD 
seek VSERIAL 


Replace SENDIOSER© WIltheyGERVCOD, SENDTOUI@ with VUIC 
SUPADDSERC with VSUPSRCD, SUPABDUTe with VSUPUIC 


1 0 End Requisition BOUcCInG, LOIdemesroint~<~*** 


Gee toe to 3, 60 double 


S Belo say Project Code t 

? 

Sec 
Project Codes basically tell what youre are eda oan the 
ammunition for. The most common co for fleet units are 
shown below, and more com ar Distsscamoce round In Speer NST 
e010.12D, NAVSUP Pub 485 and in the System 
Documentation section of t Efe Beene 

endtext 

: 


> 
wait" Press any key to show project codes:" 
@4, 0 clear 


Gomenile .T. 
Eext 
Code PEOueceaiiule 
835 ammunition requisitioned for the replacement of 


service ammunition that was used during annual or 
fleet exercise training. 


a37 Load peu ey eet te Onload/offload of shipfill 
ordnance to/from combatants or MLSF to facilitate 
offload/onload of training ordnance. 


876 Training. Ammunition requisitioned for or turned in 
following annual training or fleet exercise. 

877 Ship Loadout. Ammunition requisitioned to fill ship 
service allowance for ship deployment. 

878 Ammunition Exchange. Ammunition Bestel tLouee and/or 
turned in for exchange due to NAR's, overage 


components, obsolescence, etc. 
endtext 
walt 
G4, 0 clear 
eK 
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Code Project Title 


890 New Construction. Initial onload(reqn.) of 
ammunition for newly constructed or activated ships. 
891 Ship Overhaul. Down load(turn-in) of ammunition 


Prigpeto entering yard om sovemnaute ane Onload 
(reqn.) of such ammunition upon leaving the yard. 


892 eHee Restricted Availability. Ammunition off-loaded 
(Turhed=in)  reéqumged by sence nme cease ted 
availability period and the subsequent onload(regqn.) 
of ammunition upon completion. 

Share x: 
wait 
@4,0 clear 
do while .T. 
Store | eit cee once 


@ 15,10 say "Do you need to review the codes again?(Y/N)'"'; 
get CHOFCE pictures 
read 
do case 
CaSeSCrOT Chee 
E 


x1 
case CHOICE = ty!" 


ext 
case CHOICE <> "N" .AND. CHOICE <> "y" | 
@ pe say "Not a valid choice, try again: 
wail 
@ 17, dvelear to 17, 70 
Q 18) eetear bo 1S a0 


endcase 
enddo 
Lf CHOECE [aan 
exit 
endif 
@4, 0 clear 
enddo 
store ' " to VPROJCOD | 
@20, 10 say "Enter the SSS ape project code: "; 
geo ere GD picture Vit tt! 
rea 


replace PROJCODE with VPROJCOD 
REEKEKKAKAKAKAKKKAK End Project Code Decision KARAKKKKKKKKK 


KAKA RAAKAARKKAKKAKKK Document Identifier *xxxxxrxxarxeranen 


clear 

@ 1,10 to 3) S0mdourte 

g Z, 15 say " Document Identifier"! 
> 


Lenn 
The document identifier identifies the purpose of the 
document rapidly to the gece. CO try Bensonne msde ene Supp. 
activities and can be recognized by automated machinery which 
processes many eee Gocuments Chesem@ddvs. by Purpose It 1s 
meant mequisl Clon a itemmotatus scance dipuom Ct C. au 
More information anaucomeltece Lists of docunmene Identifiers 
are contained in: SPCCINST 8010.12D Para. 8-208 2(a) and 
NAVSUP Pub 485 App. 4. (* MANDATORY ITEM *) 


endtext 
= 
? 
wait" Press any key to view choices and make selection:" 
@4, 0 clear 
+ 
text 
Doc. Iden. Meaning 
AOl For delivery outside CONUS with NSN 
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A04 For delivery outside CONUS with NALC-NIIN 


AOA For delivery within CONUS with NSN 
AOD For delivery within CONUS with NALC-NIIN 
AOS For delivery outside CONUS w/exception data 
AWAOE For deiivery inside CONUS w/exception data 
p ==) Can't be wsed for pars NSN = FSC + NIIN 
Smeacext 
: 
Seore = " to VDOCIDEN 
@ 22, 10 say " Enter the SE EOE Sa eee document identifier: "'; 
de ee BN OrGiruiee ra ttt 
rea 


replace DOCIDENTIF with VDOCIDEN 


Clear 
eee to) 3,60 double 
¢ 2,15 say " Media and Status Codes " 


? 

text | 
iiesMedia andeseatus coOce 1S used oy the supply system to 
determine what type of status should be ave regarding the 
processing of the requisition; who should receive this status 
and by what kind of communications transmission this status 
should come. Complete information on this code is contained 
in NAVSUP Pub 485 App. 16. (* MANDATORY *) 


endtext 

eZ 

2 

wait" Press any key to show more amplifying information:"! 
@4, 0 clear 


text 

Definitions: 
ca) EXCEPTION STATUS will be used to request information 
Pemative co dmy dcetenmranen Dy tne supply Source other 
than issue of the material. 


(b) 100% SUPPLY STATUS will be used to request information 
relative to any action taken Py the supply suorce 
ineluding welease or material for Shipment, but not 
including bill of lading numbers or mode of shipment. 


(c) SHIPMENT STATUS may be used in conjunction with |. 
exception status or 100% SURE eco sc. to request pos nee 
information of shipment, including date of shipment, mode, 
bill of lading, or airway bill number, as applicable. 


Sup zi status for ammunition requisitions will be provided 
to both the requisitioner and the supplemental addressee, 
Bu Cee one 1S given. 

endtex 


wait'' Press any key to view choices: " 
@4, 0 clear 


Eee — Ss 
M&S Code De fia Cron 
0 No status provided 
Z Provide exception status via AUTODIN 
3 Provide exception status by mail 
<3 Provide 100% supply and exception status 
by AUTODIN | 
eC Provide 100% supply and exception status 
by mail 
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x ih Provide exception and shipment status 
by AUTODIN .- 
L Provide exception and shipment status 
by mail ; 
M Provide exception and shipment status 
message 
x S Prous e 100% supply and shipment status 
ig AU TODIN 
on REO on ag supply and shipment status 
* e- Required for oe eee Oe - sos 
endtext 
walt 
@4, 0 clear 
domvint lew. i. 
store Mr etomeno 1c e, 


@6, 10 say "Do you need to see the definitions again?(Y/N)''; 
See oes pueture: "'t" 
rea 


do case 


case CHOICE = "y!! 
@4, 0 clear 
exit 

Case eCHOlT Ch s= au 
exit 

case CHOICE <> "N" .AND. CHOICE <> "¥Y!! 
@ 10,10 say "Not a valid choice:" 
wait 
@ 10,5 clear to 10,70 
Gil 0 clear’ tom! 76 

endcase 


1f CHOICE = 'N# 
exit 
endif 


enddo 


enddo 


store " " toy VMEDSDAT 

@15, 10 say " Enter the a appr op eeatc M&S Code: "'; 
get VMEDSTAT picture " 
rea 


replace MEDIASTAT with VMEDSTAT 
KKRAKKKKKAAKKKARAKKK End Media and Status Code Decision **** 
KAKKKKKRKEKKKKKAKERK Demand Code xXx KKKKKAKKKKAKAKKKKKKRAR 


clear 
@il1, l10,to 3850 edeuble 
g 2,15 _ save Demand Code '" 


text : 
At last a simple code! 


R - Recurring demands. Use when item requisitioned 
is for shipfill ammunition. 


N - Non-recurring demands. Use when item 
requisitioned is cleanly a Vonestimcumnequest, 
or is the initial loadout of the ship when 
commissioned. 


Ref: NAVSUP Pub 485 sec. 3023, 3024 


endtext 

ie 

? 

Store © te” VPeNcep 

@ 20,10 say " Enter the A a letter: "; 
eee, VDENGoD picture. |” 
read 


replace DEMANDCODE with VDEMCOD 
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RAKKKKRKKAKKAKKRKKKK Signa Code KRRKAKKRKKAKKRKKKKKEKKAKKR 


Clear 
Gm OM@tG 3,50 double 


g me say © Signal Code" 
? 
Gout . 
The signal code is used to identify the activity to which the 
material is to be shaaeee ana@/or billed. 
Ref: NAVSUP Pub 485 App 14 (* MANDATORY *) 
Signal Code Meaning 
A Shipeand biil to requisitioner 
B Ship to requisitioner and bill to 
_ supplemental address 
J Ship to supplemental address and bill 
Eopcequisitioner. Use Signal Goce J 
when when the Pebaciented address is 
museca co cenGee seme eLoaGoull acliviy. 
K Ship and bill to supplemental address 
eMGLe ze 
SeCnemiae | eC. vo LGCOD 
GeZ2 es Ossay a Biter Ee Signal Code: " get VSIGCOD picture "!" 
rea 


replace SIGNALCODE with VSIGCOD 


eleéar 

Cm 0 to 3,60 double . 

G 2,15 say " Priority Code (Designator) '" 

text iol . | 
The Bae ey eode (0-15) expresses the relationship between 
the requisitioner's assigned force/activity designator and 
the se SC RSC HEECSTS yaoe Neeadmcestonater, and determines the 
time Crame within which the requisition will be processed. 
Basicaliy it determines how ae a wig you are and how fast 
they have to fill your order! If you don't know your unit's 
assigned ze € (eet ey designator check with the Supply | 
ope Tdewoidnt  Ommeme Texueccreen Will help you determine 

Summ loom nycOdeme rr Obltymeodes are fully explained in 

NAVSUP Pub 485 sec. 3045-3049, it is worth reading once. Your 
Emre Gane genehaliy omy susewsmor thesPridrityecodes since you 
have one assigned FAD Crone ey Mees vs ey Designator). 

Snacext 

? 


wait ' Press any key to see the PD table:" 
g oe OMGLear 


pene 
Priority Code Table 
Urgency of Need Designator| Force/Activity Designator 
: i Er Mak ae IV V 
A (Unable to perform) | Trop wy 03 07 68 
B (Performance Impaired)| 04 Q5 06 0g 10 


C (Routine ) abl | 12 13 14 is 


excrext 
5 
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store " ato VERERCOD 
@20 , 10 say "Select an appMopH Tate priority code; "; 
get VPRIRCOD picture "Xx"! 
read 
replace PRIORITYCD with VPRIRCOD 
RAAKKAAKAKAAAAKAAK End Priority Code *xxxxAAKKAAAARAARAK AAA 


KRERKKREAKRARRKARKARARAR GUL Delivery Date (RDD) KEAKKKKKKEKK 


clear 

@i, 10 to 3, 60 sdotibie 

@ 2, 15 say " Required Delivery Date (RDD) " 
> 


xt 
The RDD is the date that you require the material onboard 
and/or the date of the loadout. It is the 3 digit julian 


day of the year (DDD). They figure out the year from the 
rest of the requisition! ?x MANDATORY *) 

endtext 

store " " to VJDATE 


@ 20, 10 say '" Enter the Required Delivery Date: "; 


get VJDATE picture "Xxx" 
read 


replace REQDELDATE with VJDATE 
RARRRKKKKAKARKAKKAKKKAKKKENG Required Delivery Date *****x*X 


KAKKARKAKKARKKAAKKKKEKK Advice Codes KKKKAAAKKKKAKKKKAAAK 


clear 

@i1,10 tomsps0edouble 

@2,15 say " Advice Codes " 

= 

? 

erie ware . 
An advice code may be entered on the requisition to provide 
the supp source with special insrtuctions to ensure 
SP enontre e supply action is taken. The codes listed on 
Che next screen dremere ay advicencodécstnat may normally 
be used ena units to order ammunition. SPCCINST 
8010.12D Lists a few others that may be used when 
authorized by nT auee authority. NAVSUP Pub 485 fe 1 eves 
complete information on Advice Codes, but note thausoniy 
those listed in the SPCC inst. may be used for ammunition. 
Advice code may be left blank. 

endtext 

@ 20, 10 say "Press any key to view choices-- " 

Wee | 

@4, 0 clear 

text aan 

Code Description 

2B Do not substitute/interchange. Requested 

item only will suffice. 

Ze Do not back order. Reject all unfilled 
Uantities not availabwe tommeet DD. 
ultable substitute acceptable. 

2D Furnish exact Sueaeney requested (do not 

adjust to unit pack quantity) 

2J Do not substitute or backorder. 

2T Deliver to the requisitioner by the RDD 

or cancel requirement. 
endtext 
= 
store ‘sto VAby Ger . 
@ 22, 10 say " Enter Advice Code (if desired): ' get VADVCOD; 
PICtUre Sa 
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read 


replace ADVICECODE with VADVCOD : 
KAAKKRKKAKKAKAKAKERKK End Advice Code KXAKAAKAAKKAKKAKAKAKKKKR 


KKK KKK KKK KR ARKRKKK Requisition ‘Status KEKKKKKRKRKKKKAKKKKEKKKES 


eLear 
emer. 0 tO eZ, 05 dousle 
g els say Requisition Status. = 


rexc 
Requisition Status indicates the degree to which a 
requisition is complete, ready for submission, submitted but 
unfilled, etc.. It is a code established by this svstem 
(SAMS), and not the Navy supply system. The Navy supply 
system has many status codes or its own. This requisition 
status is for your use in managing your conventional 
ammuniticn requisitions, receipts, etc.. It will be used in 
Sas in various ways. 


NOTE: The only item that may be left blank on a requisition 
(OU suo tds these vwilcemeocde., Tneretore 1f isia good 
abit to simply assign appropriate values to all items 
Elid eis ep LOgmamm nds er eques tec. 


The next couple of screens will show you all the selections 
BiceevGlmnave made, the exact meaning of the status codes, 
and ask you to assign one. All the values shown have been 
written to the file, so in order to change any values we'll 
finish this part of the program and select the edit option 
‘ from the "Requisition Management" menu, 1f desired. 
SaaEext 


wait 

@3, 0 clear 

@4,10 say "Requisition Values Assigned" 

@7, 10 say "Serial Number = " + str(SERIAL) 

@ 8,10 say "NIIN = " + NIIN 

@ 9, 10 say "Quantity = " + QUANTITY 

@10, 10 say "Julian Date = " + JULIANDATE 

@11,10 say 'Send to service code = " + SENDTOSERC 
eee, 10 say “Send to UPC =" + SENDIOUIC 

@13,10 say "Supplemental address service code = ' + SUPADDSERC 
@ 14,10 say "Supplemental address UIC = " + SUPADDUIC 
@15, 10 say "Project Code = " + PROJCODE 

@ 16, 10 say "Document Identifier = " + DOCIDENTIF 
Omer. l10 say "“Hedia and Status €ode = |! + MEDIASTAT 
@18, 10 say "Demand Code = " + DEMANDCODE 

@19, 10 say "Signal Code = '' + SIGNALCODE 

Smee elo say "Priorie, Code = terkRiORITYEp 

@ 21, 10 say "Required Delivery Date = " + REQDELDATE 
eeze, 10 Say "Advice Gode = "+ ADVICECODE 

- 


wait "Press any key to see codes and assign one: " 
ie, 0 clear 
text 
Code Meaning 
I Incomplete. Some mandatory fields are missing 
or you are not ready submit it. 
R Ready. Requisition is ready for submission. 
U Unfilled. Requisition has been submitted but 
1S Untitled. 
P Partial. Requisition has been submitted and is 
panei aliy. filled. 
F Filled. Requisition fully filled. 
Cancelled. 
endtext 
store. " HU 6to VREQGSTAT 


pictures! | ty . 
read 


replace REQUISSTAT with VREQSTAT 


wait'Press any key to return to Requisition Management menu :'' 
RAKKKKKKKRAKKRAKARKARK End Requisition Status ***xxkARAKAAA 
REKKKKKKKKEKKEKKKKKKK End CRENEWRQ.PRG ***AARAKAARAAKARA 
close databases 

Se De eon 

return 


@22, 10 say " Enter Requisition Status code: "get VREQSTAT; 


> DATAELEM.PRG 

x DATAELEM.PRG 

x This program allows the user to review the Data Element 
: Dictionary andjprint Tt Lf desared. 


Written by LI. Steven L. Smieh, UsN slovuly. 1967 


* Activate next two items if program used alone. 
set talk off 

set status off 

set beliaor. 


do white wr 

Clear en: 
@5,15 say "SAMS Data Element Dictionary" 
¢ 4,10 to 6,48 

? 


text 
- What would you like to do? 
1. Review the Data Element Dictionary 
2. Print the Data Element Dictionary 
Su OuLt 
endtext 


store OS to GhiEn 
@ 20,10 say bag Sichacl " gét GITEM picture?"9" range 173 
rea 


do case 
case GITEM = l 
@7,0 clear 
use DATAELEM index DATANAME 
do while <7 





@ 8,2 say "DEN: "+DEN 
@9,2 say "NAME: "+NAME 
@10,2 say "LONG TITLE: "+LONGTITLE 
@ 11,2 saya Pre. WTP PERORE 
@ 12,2 say "DESC: "+trim Des aaee 
@18,2 say "USED IN: FL EimioOURGrE Er ib 
@ 19,2 tsay “REFS: "+trim( REFERENCE ) 
ski 
ie eof ) 

@ 23,60msay “End of Fate” 
endif 
do while .T. 


StOpee § ctomxen 

@ 22,5 say "(C)Continue (R)Repeat (X)Exit: "; 
a CH picture, “ale 
rea 


do case 
case XCH = "'C"" .OR. XCH = "'R" 
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DE veors) 


oto top 
endif 
@7,0 clear 
exit 
case XCH = "Xx" 
use 
@ 7,0 clear 
exX1t 
otherwise 
@ 23,5 say "Invalid selection, Press a key--'"'! 
wait"! Wi 
Gee omc lear 
endcase 
enddo 
Lf ose =A 
exit 
endif 
enddo 
case GITEM = 2 
clear 
@10,10 say ‘Ensure printer is on, and press a key to start:'! 
wart! ©! 
clear 


@12,20 say ot ncaa do not dis tuna’ 

Golyriseto 15,50 doub uble 

use DATAELEM index DATANAME 

set device to print a 

@1,10 say "SAMS Data Element Dictionary"+chr(10) 


Q provW@yOuscay | . 
T+chr(10) 


@ prow(),0 say " ; 
T+chr(10) 
Go while .NOT. eof() 
§ prow()+2,2 Pa "DEN: "+DEN+chr (10) 
gc Rod Aes 'NAME: "+NAME+chr (10) 
oe nee ae "LONG TITLE: "+(LONGTITLE) ; 
+chr(10 
@ pron ,2 say "PIC: "+P ICTURE tehr (40) 
@ aa ,2 say "DESC: "+trim(DESCRIPTIO 
+chr 
@ a Tome say “USED IN: '+trim(SOURCE_FIL) ; 
r 
e.paeH ,2 say "REFS: "+trim(REFERENCE) ; 
~ cae P , 
prow(),0 sa ; 
q r( 10 
skip 
enddo 


use 
set device to screen 


case GITEM = 3 


clear 

set talk on 
set status on 
Set bell on 
Beturn 


endcase 
enddo 
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return 


EDITREQ.PRG 


6 
* EDITREQ.PRG aa | | 
* This program allows editing and deleting of certain 
- Eequle pelos 

* Written by a. Steven Ey SmithpeUsto JUmer os? 


do while .T. 


close databases 
@i, lO™to 3760 double 
g 2, 15 say "Editing and Deleting Requisitions" 
> 
text 
What would you like to do? 

Ll. Edit@on Change 

2. Delete 

3. Return to previous menu 


NOTE: For obvious reasons you can only delete or edit a 
requisition that hacmnot Deen submitted emerOne =ceius 
program will check to make sure that the requisition 
ou select has a status code of (I)Incomplete or 
{R) Ready. 
endtext 


stone “0 to Che Les , . | 

@ 20, 20 say "Entér™ yourscnotcar! get JeNO Rehm pr ceurealo.: 
range 1,3 
rea 


if CHOiee tas 
emer 


else 
@4, 0 clear 
store Octo NUMBER | 
@8, 10 say "What is the serial number of the" 
@9, 10 say "requisition that you want to edit’ 
@10,10 say "or delete?" get NUMBER picture "9999"; 
: range 8000,8999 
Red 


select A 
uss AMREQUIS index AMRSERUP,AMRSERDW ,AMRREQDD 
select B 
use AMMODATA index AMANIIN 
select A 
set relation to NIIN into AMMODATA 


seek NUMBER 


L£ScoundeC> 


@12,10 say "Requisition "+ltrim(str(NUMBER))+" is for:" 

@13,10 say S5B=>SHORERiiee 

@ 14,10 say " NALC: "+B->NALC+t" NIIN: “NECN QUANTITY: *; 
+QUANTITY 


do while..T. 
stone," Co MGHOTEE 
@ 16,15 eae "Is this thet cormect item? (Y/N)"; 
ne picture ~“! 
rea 


do case 
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Gase MCHOTCE = ly" 
exe 


case MCHOICE = "N!! 


@ 18,15 say "Return to Requisition Management main! 
@ 19,15 say "menu and check serial number with" 
TZU ahs say Voptionmmor 2." 

5 


wait 

clear 

close databases 
return 


otherwise 


@ 18,15 say "Not valid selection, press " 
@ 19,15 say "any key to try again:!! 
wa tle! 
@ 16,0 clear 
endcase 


enddo 


TETRECUL SSM amen 1! AND. REQUISSTAT <> "R''- 
“aD OREGULSSTAL <> lo!) 
@ 18,15 say "That item may not be edited or " 
¢ 19,15 say "deleted!" 


wait 
clear 
close databases 
Beta 
endif 


1f CHOICE = 1 
Greats 
text | 

WARNING: Do not change the serial number on this 
reguismeion because this program does not check for 
duplicate numbers like the program that originally 
Greacedelt (option 3) 

endtext 

? 


wait 
clear 
set format to ADDREQUI 
read 


close format 
enc t 


if CHOICE = 2 
delete record recno() 
set talk on 


pac 
set talk off 
endif 
else 


@ 12,10 say "Requisition "+ltrim(str(NUMBER))+" is not found ' 
Gris, 10 say "itn etie cameo neturn to the Requisition" 

@ 14,10 say ' Management main menu and check serial" 

@15,10 say " number with option 1 or 2 


clear 
close databases 
return 


endif 
end: + 
enddo 


7. MISCREQ.PRG 


~MISCREOEERG 

* This program gives miscellaneous information about 
et da teen ne 

* Written by LT. Steven L. Smith, USN 24 Juneje igs? 


clear 
close databases 


G@ 1, 3 to 3,76 douse a . 
¢ 2, 8 say "Cancellations, Follow-up, Modifications, Misc. Info! 


Cex ec 
I. Generales: — 
Cancellations, follow-ups dand=modtreveations) co 
requisitions are infrequent events that you may someday 
have to do. Sin¢€e these are noescommon, this progran 
only refers you to the publicatiods thatmcealy vic mcdeme 
The SAMS program will still be useful to you in creating 
these documents. 
IMPORTANT ** Note that the fleet commanders and 
operational commanders Bacnh ee cememec? LC instructions 
concerning ammunition requisitioning and reporting. As 
weapons personnel you should keep curgent on these 
because they deal viene Cumeci te! cmedme tell amedh como 
operations. | 
Speci iicaueiy: 
enageexe 
wait 
@ 4, 0 clear 
text oe 
Pacific Fleet - (a) CINCPACFLTINST 8010.12 . 
"Pacific Hleet Conventional Ordnance 
Management Manual" _ 
section 1 and appendices 1 - 10 
(b) COMSUBPACINST C8500.1 
"COMSUBPAC Ordnance Notes" 
Atlantic Fleet - (a) CINCLANTFLTINST 8010.4 
NAblayelc hleet Repomeung an 
Requisitioning Guide! 
(b) 
endtext 
wait 


¢ 4, 0 clear 


text An 
II. Requisition Follow - Up 
$2} SPCCINST 8010.12D, Section 8 = 215 
b) NAVSUP Pubisses, chap..3, partub, section iT, 
subsection 17 3330 -.354/ 
III. Requisition Modifications 
$2} SPCCINST 8010.12D, section 8 - 213,214 
b) NAVSUP Pubs@9465, Chap. 3, part Di seermon il, 
subsection 2,93550ue 3552 
IV. Requisition Cancellation 
+2} SPCCINST GOUG212D, sSeceerones seecuD 
b) NAVSUP Pub. 485, chap. 3, part D, section II, 
subsection 3, 3565 - 3573 
endtext 
walt 


@4, 0 clear 
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? 
Re 


endtext 
Walt 


V.- MEESTREr Status Documents 


+2 SeCeuislwmeol Os '2by. section 8 = 212 
Bb) NAVSUP Pub. 445, chaem. 3, part D, section I, 

S000n= S511 
These documents or messages that the supply system 
provides you are in response to the status you requested 
Via the Media and Status code on your requisition. 


VI. Supplemental Requisition Procedures 
(a) morPCCiINSD ese O 1Z2peseceiOnec - 217 
1. 8E cog material - Air launched missile material 
RPOON 


2. 8T cog material - Surfaced launched guided 
Hes smte mmacenial 


¢ 4, 0 clear 


rext 


endtext 


3. *4T cog material = gle ¢ d0es and components 
om 
*8S cog material - SUBROC material 
*8U cog material - Sonobouys 
* Refers you to Fleet instructions 
4, 2D cog material - Tomahawk 


wait "Press any key to return to Requisition Management menu "' 


re curn 


PRINTREQ.PRG 


8 
* PRINTREQ.PRG 


Program to eee requisition documents 
~ 
ae 


Written by 


Steven L. Smith, USN 16 June, 1987 


Sseore 1 to REONO 
*set talk on 
*set echo on 
“cet step on 


do while .T. 


clear 


close databases 


Get; l0gte 35 60 dotole en: 
G2, 15esay "Printing Requisitions” 
? 
? 
eee aa 
What kind of requisition format would you like? 
1. Manual ( DD Form 1348 ) 
2. Naval message 
3. DAAS message 
4. Return to previous menu 
endtext 


Seore © to CHOICE 


an20); 


20 say | Entereyoumecnotce.../ Get CHOLTCE picture "9"; 


range 1,4 
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read 


TF SCHOLCE = 4 
Gerunn 
endif 


xxXKKKX Look up requisition and load data into variables**** 


@4, 0 clear 
store Oto NUMBER 
@38, 10 say "What is the serial number of the' 
@ 9, 10 say “reqursiticonethiat Volmwisn tomonint-! ; 
F get NUMBER picture ''9999" range 8000,8999 
rea 
select A 
use AMREQUIS index AMRSERUP 
select B 

use AMMODATA index AMANIIN 
select A 
set relation to NIIN into AMMODATA 


seek NUMBER 
if found() 


@12, 10 say "Requisition "+ltrim(str(NUMBER) )+" is for:" 

@ 13,10 say B->SHORTTITLE 

@14, 10 say '' NALC: "+B->NALC+!! NIIN: '"'+NIIN+; 
"QUANTITY: "+QUANTITY 


do while .T. 
store !' " CosiGHorles 
Cio. say "Is this the correct requisition? (Y/N)"; 
Soon CHOIGE preture: ia 
read 
do case 
Case MGHO LGHe =e 
exit 


case MCHOICE = '"N' 


@18, 15 say "Return to Requisition Management main" 
@ 19, 15 say "menu and check serial number with" 

@ 20,015 say “Sopticnmieer 2. . 

? 


walt 

clear 

close databases 
return 


otherwise 


@ 18,15 say "Not a valid selection, press i 
@19, 15 say Hany key €oO twyeagaine .” 

wait 

@ 16, O clear 


endcase 
enddo 
if REQUISSTAT = "I" 


@ 18,10 say "WARNING: This item's requisition status " 
@19, 10 say "indicates it is not ready for submission. ' 
@ 20, 10 say "Recommend checking an/or updating status." 

Wait 

clear 

close databases 

rerun 

endif 


store B=>FERSURCIEAD COTarnoU 
store B->COGSYNEOL to BPRGD 
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Svomeee--UNTLORESSU  cOmCPROD 
store B->SECRISKCOD to XPROD - 


set relation to 


Store SENDTOUIC to DPROD 
store SUPADDUIC to EPROD 


select C . 
use AMDADDR index AMDUIC 
Goro fo 
seek DPROD 
if 2cund( > 
Store ACTIVNAME to FPROD 
store LOCATION to GPROD 
store HULLNUMBER to YPROD 
store ROUTIDENT to ZPROD 
else 
Store ” ' to FPROD 
store " ' to GPROD 
store !! ieee Ve ROD, 
store " "to ZPROD 
endif 
GOEO cop 
seek EPROD 
if found() 
store ACTIVNAME to HPROD 
store LOCATION to IPROD 
else 
store '"! ito. HPROD 
Seore | mee LPROD 
endif 
use 
select D 


use AMSTDATA 

store SERVCODE to JPROD 

store UIC to KPROD 

store ltrim(UNITNAME) to LPROD 
store HULLNUMBER to MPROD 
store FUNDCODE to NPROD 

store MONITACTIV to OPROD 


use 
select A 
endif 
ie not. found() 
clear 
@ 12,15 say "Requisition ae ser NOE) roenot” 
Clyls yl say) LOUNd imeem file. Return to the " 
@ 14,15 say "Requisition Management main menu and "' 
@ 15,15 say "check the serial number with options " 
Gile.15 say “l-dndie2.” 
? 
wait 
clear 
close databases 
re cum 
endif 


xkAKAKKKAFinished loading requisition data into variables*** 
ARRKEX Process manual requisition DD Form 1348 ***xxx*x 


i -CHOWce = 
clear 
Q@1, 15 tomer 50 _s 
@2, 20 say "Manual Requisition" 
? 


ext 
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Notes: A DD Form 1348 can not be produced on most common 
computer printers because of its size and lack of 
tractor feed holes. In any case you would have to 
remove the normal paper. 


This program will produce a near replica of the 
completed DD Form 1348 on the screen and then you 
will have to transfer the exact data to the DD 
Form 1348(6-part) card. 


You should use a black ball point pen, pressing 
firmly, oF use a typewimmGer set Geese ucen, 
Attempt to keep the characters within the 'tick- 


marks". Use 0 (with a slash through) for the 
number zero. 

endtext 
wait 


do REQ1348.PRG 


@ 20,10 say "Press any key to return-" 
walt eu 


endif 
AAXKKAKK Finished processing manual requisition =*******% 


*xkkkProcess information common to DAAS and narrative messages * 


if CHOICES ="2— .0OR. CHOIGs = 3 
clear 
@ 0,15. CouZz760 sdcubie . | 
@ 1,25 say "Special message information" 


5 
tex 

NOTE: During periods of restricted communications ( ie 

MINIMIZE) , stata = requisitions shall only be transmitted 

for priorities O1-08 requirements. 


endtext 
@ 322) COmoey 5 


xKKKKK special addressing info. for certain COG material 


text 
Comments: The action and info addees on naval message | 
requisitions vey widely depending on the type of material 
(COG), and the theatrejo& operations. Due to the egeduency of 
change and the variability of these addresses, any attempt to 
automate the choice of these would quickly be in error. 


If your requisition involves COG material that falls in 
special categories, the program will warn you and direct you 
to one of the references. 

endtext 


wait 
@ 3,0 clear 


do case 
case ee = "4E") .OR. (BPROD = "8E'') 
x 


e 
*k Your requisition is for Air Launched Missile Material 
(COG 4E or BE), refer to CINCPACFLTINST 8010.12, section 
1, App. 4 or App. 9fHARPOON) or CINCLANTFLTINST 8010.4H 


endtext 


case BPROD = '8T!! 
Caxt 
xk Your requisition is for Surfaced Launched Guided 
Missile Material (COG 8T), refer to CINCPACFLTINST 
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8010.12 section 1, App. 7 or CINCLANTFLTINST 8010.4H 


endtext 


case BPROD = "4T" 
exes 
**X Your requisition is for torpedoes and components or 
ASROC and Seno nents (COS 4T), refer to 


CINCPACFETINSE GOlemizesection 1, App. 5 or 
CINCLANTFLTINST 3010.4H : 
endtext 
Case BFROD = "es" 


TEXC 
xX Your requisition is for SUBROC material (COG 8s), 
Bete CG ecCUNCrACGHL@ INST ecG10'12 section 1, App. 
or CINCLANTFLTINST €010.4H 
endtext 


case BPROD = "8y'!! 
cox te 
xx Your requisition is for sonobouy material (COG 
8U), refer to CINCPACFLTINST 8010.12 section 1, 
app. 8 or CINCLANTFLTINST 8010.4H 
endtext 


Case bPRODe = 2p" 
Cone 
xX Your requisition is for Tomahawk material (COG 
2Oppeerenrer sso GINGPACPETINST 8010.12, section 1, 
App. 10 or CINCLANTFLTINST 8010.4H ; 
endtext 


case BPROD = "6T" 

exe 
xx Your requisition is for mine material (COG 6T), 
rerer@roa CINCPACFLTINST G0l0,12 section 1, App. 6 
Or CINCLANTFLT 8010.4H 


endtext 
case (BPROD = "2T") .OR. (BPROD = "2E") 
do while .T. 
Stone co ECHOICE 


@ 5,5 say "Is your requisition for mine material?(Y/N)"; 
Getaseonomee DIceture. |". 


read 
do case 
CasenBCHOlceE. = "yy" 
@.7 Ovelear 
text 


AX Refer to CINCPACFLTINST 8010.12 section l, 
App.6 or CINCLANTFLTINST 8010.4H 


endtext 
exit 
case BCHOICE = 'N" 
@ 4,0 clear 
text 


xX Your requisition is for normal conventional 
ammunition eeonnet Ohezedte) ya .OUm norma |! 
requisition action and info addees are: 


Pacific Fleet Atlantic Fleet 
EastPac MidPac WestPac | 
Pimeonus Ord. ActlViey Gmd., Activity 
GiesorcC or DAAS SPCC Gr BAAS 
a (message) (message) | 
I EVeor TYCOM 
Nj COMNAVLOGPAC COMNAVLOGPAC 
oo PLC Cle Sev EN THREE 
CVPeenooul ACTIVITY LSE 
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LOADOUT ACTIVITY] 


Ref: CINCPACFLTINST 8010.12 section 1, oe 3 
CINCLANTFLTINST 8010.4H 


endirext 
exit 

otherwise 

wailt"Not valid selection,press a key'! 

@5,0 clear 

endcase 
enddo 
endcase 


wait 
KAKKKKK End Of special adeLessing incon 


RRRKKRARKKRARKRKR Collecting Addresses **AXARAARARARAAKA 


if REQNO = l 
store space(35) to ADDRES1,ADDRES2,ADDRES3 ,ADDRES4, 
ADDRESS, ADDRES6,ADDRES7, ADDRESS, ADDRESS 


do while .T. 
cieey 
@1,10 to 3,60 double 
¢ 2,15 say Message Action and Info. Addees'' 


text 
Enter the app hop ace Ore ae in the order you wish them to 
Se rect On ene ne Sead Use the cursor keys to move around and 
edit. Address format: ACTIVITY LOCATION 

endtext 

i720  eomie o 


if CHOICE = 2 

ADDRES1 = "SPCC Mechanicsburg, PA." 
endif 
Lf CHOICE = 3 

ADDRES1 = "DAAS Dayton OH." 


endif 

@9,15 say "Action Addressee: 1. '" get ADDRES1 
@ 10 say "' 2. " get ADDRES2 
@ 11,15 say " 3. " get ADDRES3 
@ 13,15 say "Info. Addressee: 1. " get ADDRES4 
@ 14,75 sayoe 2. get ADDRESS 
@ 15,15 say " 3. " get ADDRES6 
@ 16,15 say " 4. " get ADDRES7 
@ 17,15 say " 5. " get ADDRES8 
@ 18, iS esayeu 6. " get ADDRESY 
G19 0 ter lseys 


domwhagie. .Ti 
See uo" To DeHOzeE . 
@ 20,2 say "(R)Review address file (S)Save (M)Modify; 
addees 1K Be Co | 
@ 21,10 say ee ee: " .get, DCHOICE pugeare, "lt 
rea . 


do case 


case DCHOICE = "'R"! 
do REVWADD 
Sevect a 
exit 


case DCHOICE = ''™!! 
exit 


casé DCHOICE = 4&5" 
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exit 


Gace UCHOICE = iy 
Src 


otherwise 
@ 22,10 say “Invalid selection.."! 
wait 
@ 20,0 clear 
endcase 
enddo 


Df UCHCICE =. 5" SOR], DGHOLICE = °"x" 
exer 
endif 
enddo 
1f DCHOICE 
loop 
endif 


ee 


Se. os (6 *) me 


Stores. WOreraAsS 


@0,10 to 2,60 double 
g 1,15 say "Message classification information" 
text | 
A DAAS formatted meee de is always UNCLASSIFED because none 
of the MILSTRIP data elements contain classified 
information. 
Dome: Other technical of operational ™intotmation about 7a 
particular item may be classified however, such as 
for torpedoes, some missiles and rockets,etc.. 


A narrative message is likewise UNCLASSIFIED unless ued 
must add a REMARKS paragraph that contains classifie 
BoloOundeton, suchedsusmep s Schedule on other oper dtional 
Peermation . 7 Xe ee . 
NOTE: CINCLANTFLT does not permit classified requisitions. 


A separate classified message is required. 
endtext 


Homme le .T. 
seore | ' to ECHOICE — 
@19,5 say "Will you require a classified REMARKS paragraph; 
meri)" get ECHOICE BAGHUES wa 
rea 


if ECHOICE = '"'y" a. . 
@22,10"say “Enmemethe classification of the remarks:"; 
Gereclacs Picture Pri rrrifiy® 

read 

exit 


lse 
if EGHOIGE = i" 
CLASS = "UNCLAS'" 


exit 

else 
@ 22,10 say "Invalid entry, press any key.." 
Gat! iB 
@ Lae ucre ain 
ena 

endif 

enddo 
endif 


KARKKAAKKAAKKK End Classification Determination *****xxKXK 
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KAKKAKRKKE End of common information AAA AS A 
endif 


KKKKKKKKKK Printing the message worksheet ****xkxK 
if CHOICE = 2 


if REQNO = 1 


clear 

@5,5 say "Ensure the printer is on and the pares aligned to" 
: 6,5 say "start printing at the top of a sheet! 

Walt"Press any key to start printing' 

ee an 

@ 10,10 say "Please message requisition" 

@11,10 say "Please : not disturb until return to menue.” 
a9,5 to 12,60 doub 

set device to point 

@1,5 say "Ammunition Requisition Message Worksheet" 

@2,5 say "Re Cuey ones Se eee = "+CLASS 

@ 3,10 say "LMF T = ZYUW! 

4,0 Say "seer ene rene en san re nn enna a wea Se ewe SST 
@6,12 say "From: '+LPROD 

@7,14 say "To: "+ADDRES1 


if ADDRES2 <> '" " 
_prow()+1,18 say ADDRES2 
endi 


if ADDRES3 <>. 7 7 
sna ee ee ,18 say ADDRES3 


@ prow()41, 12 say "Info: "+ADDRES4 
i ADDRESS ont 
eae ,i18 say ADDRESS 
endi 


If ADDRESS <> 5 i 
@ prow()+1,18 say ADDRES6 
anda 
ei qeeeeS i u 
e paewes 18 say ADDRES7 
endi 


if ADDRES8 <> '! " 
aero say ADDRES8 
endl 


alge saan ore 
oe ,18 say ADDRESY 


endi 
@ prow()+2,0 say trim(CLASS) 
@ prow ypeol()+1 say "//8012//" 
@ prow say "Subj: AMMO MILSTRIP REQUISITION" 
endif 
if REQNO > 1 
clear 
@10,15 sa see TEES RSE not dvsturs! 
§ 9,5 to l 
set device ae 
endif 


@ prow()+2,0 may Ltrim(steCReee)) +e 


if CLASS <> "UNCLAS'! 
@ prow(),pcol() say "(U) " 
endif 


@ prow(),pcol() say DOCIDENTIF+"/"+ZPROD +"'/"+MEDIASTAT +''/" 
store 1 to MARK 


store " VW" eOuceno. 
store " ™ €o" teneZ 
store ! we COE Oo r 
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templ = ltrim(str(APROD) ) 


Go while MARK < 5 
temp2 = substr(templ ,MARK, 1) 


se eeeL Ie with temp2, POSIT 
cae) on) say ltrim(POSIT) +" ! 


MA ho 
antic 


Store. weco MARK 
do while MARK < 10 
emp2 = substr(NIIN, MARK, 1) 
Fe SPELLIT with temp2, POSIT 
1f MARK = 7 
ea) tt 9 Sayevtrin¢eecir) + " 


endi 
@ proy(), eek) Say elenim( Posi) +!" 
MARK = MARK + 
enddo 


@ prow(),pcol()-1 say "/"+CPROD +"'/" 


Stone. 1 to MARK 
do while MARK < 6 
temp2 = ae eee MARK, 1) 
Go SPEELIT with tempz, POSIT 
¢ oe peony say trim(POSIT) oe et 


eae 
@ prow(),pcol()-1 LL aATPRODSKPROD 4" /'4 JULIANDATE$"/ "+; 
Ltr2 in(ste(SERIAL))" "+DEMANDCODE+"'/"+chr (10) 
@. row ( say SUPADDSERC+SUPADDUIC+"/"; 


GNaS CODES TY "SNPRODE TS 'SOPRODSBPRODE ; 
07 ¢ PROJCODE+' /"+PRIORITYCD+"'/ "tREQDELDATE+" /'"+ADVICECODEt chr (10) 


set device to screen 


clear 
xxx*X Determine if more messages will be printed 
pexe. 
Goose One: 1. More message requisitions to print with 
same addresses and classification. 
2. More message requisitions to print with 
different addresses and/or classification. 
3. Add narrative remarks paragraph 
4. Finished message requisitions 
endtext 


store 0 to GCHOICE 
@ 12,15 say a ee wget GCHOICE picture "9" range 1,4 
rea 


do case 
case GCHOICE = l 
REQNO = REQNO + 1 
clear 
@5,5 say "Do not advance printer, next" 
@ 6,5 say Ure uisition will print as paragraph" 
G 755 sayee PGiee 
= 
walt 
Case GCHOICE = 2 
clear 
oe device to prin 
sef device ,O say IBT"+chr (10) 
ac device to screen 
,9 say "Remove previous message worksheet" 
a 3" say "from printer, set uP or the next! 
@7,5 say "printed message worksheet" 
” 
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REQNO = 
Walt 


case GCHOICE = 

store sac as to COMMENTS 

clear 

@ SAE say "Enter remarks: '" get COMMENTS 

rea 

Set device to prin 
@ prow()+2,0 say Ltram (ste ((REQNO ae : 

if CLASS = "CONF 

_@ prowl) pce) say (em 
enede 
if CUASS. =~ "SEGRE" 
_ @ prow(),pcol() say "(S) ' 
endif 


@ prow(),pcol() say "Remarks: "+ trim(COMMENTS ) 


@ et ee O say “BE! tenn (io) 
set device to screen 

REQNO = 1 

clear 


case GCHOICE = 4 
REQNO = 1 
eleaG ; 
ace device to print 
Se a) )+270msaye JETS chr (ho) 
set device to screen 
endcase 


endif 


xkkkk Process DAAS formatted message ***XxxxKAAKAKKK 


2£ “CHOICE = 3 
ae a = 1 
clea 


Qo, 15 to 2750 douse 
@1,20 say "DAAS message information!" 
? 


text 

The Defense Automated Addressing pals Cenk ORAS) is a real-time 
telecommunications system located in Dayton, OH. which is 
designed to effectively route soe traffic to supply 
sources. DAAS messages are submitted in a fixed, machine - 
readable format which does not have to be transcribed for 
entry into the CAIMS sytem as do narrative messages or manual 
requis melons. 

KAKKKAKKKAKR DRAS MESSAGES *kxRAKAKARKKAKKK 

1. Must be UNCLASSIFIED. 

2. Must not require REMARKS. 

3. Must be to CONUS activities on 


ly. 
4. gy Must not be for CV loadouts from AOE/AE. 
en 


@10,5 to 16,62 double 


text 
For more information on DAAS read: NAVSUP Pub 485,section 
3028, SPCCINST 6010.2 20m section S=207) Crice ereaiis., 
section i=5 or CINCLANTELTINST 8010.4H, section 
endtext 
do while .T. 
store ' ' to HCHODGs 


@ 21,5 say "Is DAAS format Still O.K.?(/N)" Get HCHOICE; 
seeped oe 
rea 


do case 
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cacseeBeience = Ny" 
Clear 
exit 
casie HCHOICE = "N"™ 
eléar 
ext 
otherwise 
@ 23,10 say "Invalid entry, press any key.." 
wait"! iB 
@ 21,0 clear 
endcase 
enddo 
If Henemese= Ni 
loop 
endif 
@ 5,5 say "Ensure the printer 1s on and the paper aligned!" 
§ 6,5 say "to start printing at the top of a sheet.'" 
wait"Press any key to start printing’ 
Gilead, 
@ 10,10 say ee DAAS message requisition--"' 
Gallet O savelrlcasce sco Noatwcicturbsintilsreturn to menu." 
@9,s to 1276U0Ndoubile 
set device to Deine 
@1,5 say "DAAS Requisition message worksheet" 
@2,5 say Vegeccenney classification = UNCLAS'"! 
@ 3,10 say "LMF = TT CIC = ZYUW " 
@4¢,0 say " . 
@6,12 say "From: ''+LPROD 
@ 7,14 say "To: "+ADDRES1 


1f ADDRESZ <3 >" i 
Syeuow \) ite say ADDRES2 


endi 
als ic <> a 

eed elas 18 say ADDRES3 
endl 


@ prow()+1,12 say "Info: _"+ADDRES4 
if ADDRESS <> " 
ie prow()+1,18 a ADDRES5 


endl 
if ADDRESo <> uy 
@ prow()+1,18 say ADDRES6 


endif 
if ADDRES? <>a 4 

@ prow()+1,18 say ADDRES7 
endl 
if ADDRESS: <>"! te 

@ prow()+1,18 say ADDRESS 
endif 
1f ADDRESS << M 

@ prow()+1,18 say ADDRES9 
endif 


CG yprow()+l,0 say "Suby 2 AmNO MILSTRIP REON." 
endif 


L£ ie NO > 1 
ear 
@- 10-15 eet We shorerhola| 
a 9,10 to 11,45 double 
set device to print 
endif 


£ REQNO = 1 


row()+4,5 say DOCIDENTIF+ZPROD+MEDIASTAT+; 
seein eP ASeGB) ENIENS" "+CPROD+QUANTITY+JPROD+KPROD+ ; 


do not distusgbe! 


169 


JULIANDATE+ltrim(str(SERIAL) )+DEMANDCODE+SUPADDSERC+: 
SUPADDUIC+SIGNALCODE+NPROD+OPROD+BPROD+PROJCODE+; 
PRIORITYCD+REQDELDATE+ADVICECODE+chr (10) 

endif 

if REQNO > l 

@ prow()+1,5 say DOCIDENTIF+ZPROD+MEDIASTAT+; 

Ltrim(str(APROD))+NIINE" ''+CPROD+QUANTITY+JPROD+KPROD+:; 
JULIANDATE+ltrim(str (SERIAL) )+DEMANDCODE+SUPADDSERC+; 


SUPADDUIC+SIGNALCODE+NPROD+tOPROD+BPROD+PROJCODE+; 
PRIORI TYCD+REGDEEDAIE ADV ICEGeDE Tein Foy 


endif 


set device to screen 
clear 


KAAKKKAX Determine if more requisitions on same message** 


CeExe 
Choose one: 


1. More requisitions to print with same 
action and info. addresses. 


2. More requisitions to print with different 
action and/or info. addresses. 


3. Finished DAAS message requisition. 
endtext 
store 0 to” IChemer . . 
@12,15 say "Enter choice: " get ICHOICE pac uus Mohs 
range 1,3 
read 
do case 
case ICHOICE = 1 
REQNO = REQNO + 1 
clear 


@5,5"sa7 wo not advance primcer, Next! 
@6,5 say "requisition wil print below" 


‘ 


@7,5 say "previous one.' 
Es 
wait 

case ICHOICE = 2 


etean | 
@ 5,5 say "Remove worksheetetnensprinver , '' 


@6,5 say "set up paper for next message." 
? 

REQNO = 1 

wait 


case ICHOICE = 3 
clear 
REQNO = l 


endcase 
endif 


enddo 


close catabases 
Clear all 
return 
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PROGFILE.PRG 
PROGFILE.PRG 


A te 


desired. 


This program reviews the system program file and prints 1t if 


Medeeen pvelia Steven L. smith, USN 13 July, 1987 


* Activate next two items if program used alone. 


Seu talk off 
set status off 
met moet! Off 


Lear 

eo l> say “SANS Program. File" 
g 4°10 to 6,45 double 
> 
e 


ext 
What would you like to do? 


1. Review the program 


file 


2. 9fiamt the program file 


3 > -Ounee 
endtext 
seore O ‘so [TEM . 
Geo ,0 say "EnGgernwcncices. get ITEM picture 
read 
do case 


case ITEM = l 
clear 
use PROGFILE index PROGNAME 
do “while wan. 


store l to MLINE 
store 1 to MCOUNT 


do while (MCOUNT <=3) 


"9g" range 1,3 


-AND. (.NOT. eof()) 


@ MLINE,5 say "Program Name: '"'+PROG NAME 

@ MLINE+1,5 say "Calls: "+rtrim(CALES) 

@ MLINE+3,5 Sad yeeumooese: a trcrim( PURPOSE ) 
@ MLINE+S,5 say "Called by: "+rtrim(CALLED_ BY ) 

@ MLINE+6,0 to MLINE+6,78 


MLINE = MLINE + 7 
MCOUNT = MCOUNT <= 1 
Skie 


enddo 
if eof( 


endi 


do’ white...T. 
Stopes. .) to CHY 


) 
ee ,60 say "End of File" 


@ 22,5 say "(C)Continue (R)Repeat CA) Ete 
gen Cy ple eure 2 


read 
do case 
ease CHyY = "Cc"! 
me ecr( ) 
Otome 
endit z 
ex1t 
case CHY = "XxX! 
use 
clear 
set talk on 


JOKemeeCny = h- 


set status on 


set bell on 
return 


wa 


otherwise. 
@ 23,5 say "Invalid selection, press a key-" 


Walt 
@ 22,0 clear 
endcase 
enddo 
clear 
enddo 
case ITEM = 2 
clear 


@ 10,10 say "Printing, downctediscunal 
G9 cate, 1i,27 ‘doulte 

use PROGFILE index PROGNAME 

set device to print 


@1,15 say "SAMS Program File"'+chr(10) 


@ prow(),0 say " : 
- , "+chr(10) 
@ prow(),0 say | ; 
P Y T+chr(10) 
do while .NOT. eof() 


@ prow()+2,5 say "Program Name: '+PROG_NAME+chr(10) 
@ prow(),5 say "Calls: '"+CALLS+chr(10) 
@ prow(),5 say "Purpose: '"+PURPOSEt+chr(10) 
@ prow(),5 say "Called by: "+CALLED_BY+chr(10) 
@ prow(),0 say ! : 
"+chr (10) 
\ skip 


enddo 


use 
set device to screen 


case ITEM = 3 


clear 
@ 10,10 say "Quit this program" 
use 
walt 
set talk on 
set status on 
set bell on 
return 

endcase 

set talk on 

set status on 

set bell on 


return 


10. REQ1348.PRG 


x REQ1348.PRG . | | 
x pao gn to display replica of DD Form 1348 filled in 
ae ten by LT. Steven L. Smith, USN 16 June ,1987 
Ciear 


@ 1, 3 SAY SENDTOSERe 
@ 1, 4 SAY SENDTOUIC 
@ 1, 10 SAY FPROS 


if SENDTOSERC = "V"" (ORV SEneTOSERC = "R" 
7 @2, 13 say YPROD 
else 
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MRR HERR EH 


WWWOOddDdOCO 1) Pb PPP PP AD~IRP ONO DWOA BR PRHRRRRRrHOOODOOOOIOWOMWMNUIUIMNNMMUNhHHH 


MAWDOD ADD DADMDMMMDADDDD DAD DMDMADDMDVMDAMDADMDVDMGDDVADMAWDOAAAMDMDADADADDAADMDDDO@Oa am 
t- 


MRR EH 


@2, 12 say GPROD 


SAY 
SAY 
Soe 
SAY 
SAY 
SAY 
SAL 
SAY 
SAY 
oat 
SAY 
SAY 
SAY 
SAL 
SAY 
SAY 
oe 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


JPROD 

KPROD 

LPROD 

MPROD 

"RXXXXXXXXXXXX XXXXXKKK"! 
AMREQUIS->DOCIDENTIF 
ZPROD 
AMREQUIS->MEDIASTAT 
ltrim(str(APROD) ) 
AMREQUIS->NIIN 

pu 

CrRoD 
AMREQUIS->QUANTITY 
JPR0D 

KPROD 

"Remarks :" 
AMREQUIS=->JULIANDATE 
AMREOUIS=>SERIAL 
AMREQUIS-=>DEMANDCODE 
AMRe QUIS =2sULZAODSERC 
AMREQUIS=>SUPADDUIC 
AMREQUIS->SIGNALCODE 
NrROD 

Or sob 

BPROD 
AMREOQUIS=72ROc@ODE 
AMREQUIS->PRIORITYCD 
AMREQUIS=>REQDEEDATE 
"SXXXAXXXKXKXXXKKAA" 
AMREQUIS=>ADVICECODE 
UW RKRAXKXAKAAKKAKAAKKAZKAKAKKA "| 
"DD Form 1348 - Manual Requisition" 
6. 77 


Ov 
~] 
~J~ 


b+ 


m.P PRR OOOUWUIMNINnni Ok WO UOh wo 


DOUBLE 
double 


=> 


MRM NN WOR O~IE NWO) W~I~) 


double 


a | 


OWUMONOWHOF BUF 1010 UB O O10) 0 0 


I bP 


NO 


ee 


11. REQMENU.PRG 


*REQMENU . PRG an 
pol eeEe to Pace eu the Ae ae Management Menu 
*AWritten by LT. Steven L. Smith, USN , 6 June? 


Clear all 
do while <7: 


clear 
text 


Requisition Management Menu 


Review all requisitions - Summary 

Review complete requisition data 

Create a new requisition 

Edit and delete requisitions 

Cancellation, Follow-up, Modifications, Info. 
Print requisition documents 

Backup Requisition File 


“ITO OLB WN Fe 


99. Return to Main Menu 
endtext 


@ 1,0 to 2h) 7omdeuble 
Q)3, 1 gous 
@18 1 to 1s 78 


store 0 to MSELEG? 


@ pee say "Enter your selection: " get MSELECT picture "99" 
rea 


do case 
case MSELECT = 1 
do REVWREQ.PRG 
case MSELECT = 2 
do COMPLREQ.PRG 
case MSELECT = 3 
do CRENEWRQ.PRG 
case MSELECT = 4 
do EDITREQ.PRG 
case MSELECT = 5 
do MISCREO.PRG 
case MSELECT = 6 
do PRINTREQ.PRG 
case MSELECT = 7 
do BCKUPREQ.PRG 
case MSELECT = 99 
return 
otherwise | | 
@ 22,16 say "Not a valid selection--" | 
wait " Press any key to try again-- 
endcase 
enddo [.T.] 
clear all 
return 
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4+ 4 4 > 


Ar A 


tw 


REVWADD.PRG 


REVWADD.PRG 

This program reviews the address file (library ee 
hese n oY LI. Steven L. Smith, USN 20 June, 1937 

NOTE: If used external to AMSMAIN, activate next two lines. 


set status off 
se. calk off 


clear 

Geils to 3,55 double 

@ 2,28 say "Address File" 

yoo say "S/C UIC AGiiy iry LOCATION ; 
BUEie NC . Ril 

@6,0 to 6,79 

Setect Hi . 

use AMDADDR index AMDACTNM 

aoe iale, ol. 


scene 1 to MCOUNT 
store 8 to MLINE 


do while (MCOUNT <= 10) .AND. (.NOT. eof()) 


MEINE djosay SERVGODE 
MLINE ,3 say UIC 

MULOINE lie say ACTIVNAME 
MLINE ,35 say LOCATION 
MLINE ,62 say HULLNUMBER 
MELNE (73 say ROULIDENT 


MLINE = MLINE + 1 
MCOUNT = MCCUNT + 1 


fa) (a) (a) (a) (a) (a) 


skip 
enddo 
Pf COL) 
20,50 saypevEnd of File" 
endif 
ao while .T. 
SG0Le ~ Tito Zeno rer 
@ 21,5 say AO eee (R)Repeat, (X)Exit:" get ZCHOICE; 
TCcEu 
vee 
do case 
Gase CenORGEE= 9G" .OR. ZCHOLGE = "R” 
if eof() 
oto top 
endif 
exit 
case ZCHOICE = "Xx"! 
use 
clear 
return 
otherwise 
@ 22,20 say "Invalid selection, press any key to try again-"' 
wait 
@-2Z,0 clear 
endcase 
enddo 
ey Oclear 
enddo 
use 
Rocurn 


13. REVWREQ.PRG 


* REVWREQ.PRG | a | 
x Program to quickly review the requisition file 
xWrercten by LT. Steven LL. Smith, vst 13 June, 1987 


clear all 


select A 
use AMMODATA index AMANIIN 

ene cusr 
use AMREQUIS index AMRSERDW,AMRSERUP ,AMRREQDD 
set relation to NIIN into AMMODATA 


clear 


G@i, 22 to 3, 43mcoubwe 
@2, 27 say "Requisition File" 


@5,4 say "SERIAL NALC NIIN SHORT TITLE 
QUANTITY STATUS J/DATE " 


set heading off 
goto top 


do while .T. 


@1, 0 to 24, 79 double 
G6, + EOnG aie 

store 7 to mline 

store Q to xcount 


do while .notwmcOct serail a (xcOUne< 2c) 


@mline, 5 say SERIAL 

mline, 13 say A->NALC 
mline, 19 say NIIN 

mline, 30 say A->SHORTTITLE 
mline, 55 say QUANTITY 
mline, 65 say REQUISSTAT 
mline, 73 say JULIANDATE 


mline = mline + l 
xcount = xcount + 1 


MOOD am 


ski 
fe eof ( 


@18,5 say "That's all the requisitions on file:" 


endif 
enddo 


do while .T. 
store " "' to CHOICE 


@ 20,5 say "Want to see more or review again? (Y/N)"; 


get CHOICE >acture '!" 
read 


do case 
eaee* CHOTeGE = N™ 
set heading on 
clear all 
return 
ease" CHOTCE =i 
if eof() 
OTO top 
4 6, 0 cii€ar 
ere 
else 
@6, 0 clear 
exe 
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endif 
case CHOICE <> "N" .AND. CHOICE <> "'¥! 
@21,5 say "Not a valid choice--" 


icine? Press any ou Gee Ghy again=" 
Cur oreectear t6.25-7 
endcase 
enddo 
er.ddo 
Gear aie 
return 


l4. SPELLIT.PRG 


Eeececure SPELLIT 
Shas program returns a spelled out character string for the 
CAaracter number 
Momeeon Oy Li. Steven L. Smaen, USN’ 20 dune, 1987 
peeceaere SFELLIT 
Darameters tempZ2, PCSIT 
do case 
case temp2 = "9" 
StOGCme peut O er OS 1 7 
case temp2 = "8" 
St@re “EiGai to POSIT 


A A AA 


case temp2 = y/" 
Score. obveen to POSIT 
case temp2 = "6! 
StOpem orn to. POSIT 
case temp2 = "5" 


store ™Pive to POSIT 
case temp2 = "4" 


store "MOWRY to POSIT 
case temp2 = "3" 

store “THRee” to POSIT 
case temp2 = "2" 

Stone mre to FCsSiTt 
case temp2 = "1" 

Seon ec. /ONEPeuees OSI T 
case temp2 = "Q" 


Store. ceoRnOo to POSIT 
endcase 


Rete: 4 


1s. STRUCCRI.PRG 


~TeeeUGCRT.PRG 
x This program displays the SAMS structure charts 
pesesneoy i, steven Lb. smita, USN 13 July, 1987 


Clear 
sear talk, off 
set status off 


© 19,20 say "SAMS Structuwe Charts" 
{2 


Gee 15 to 7-460 double a 

520,10 sam "PY nessmaniaesemet OastamteViewingacharts--'' 
wart"! tI 

SuSar 

@o While .T. 

text 


Shipboard Ammunition Management System 
Major Sub-system Structure Chart 
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AMSMAIN 


TRANMENU REOMENU TURNMENU NARSMENU 
INVMENU MANGMENU 
| INFOMENU REPTMENU | 
endtext 
wait 
clear 
cext 
User Access/Main Menu 
PROTECT 
AMSMAIN 
endtext 
walt 
clear 
ctext , 
General Information/Documentation 
INFOMENU 
| 
INFOHELP DOCCODES DOCDEFIN DOCREFS 
INFOTEXT DATAELEM — > 
endtext 
walt 
clear 
Cext 


Inventory/Allowance/Ammunition Information 


INVMENU 
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INVVIEW INVAMMO INVALLOW 


Gngtext 
walt 
clear 
text 
Requisition Management 
age EN 
2 | 
REVWREQ COMPLREQ CRENEWREQ EDITREQ MISCREQ | 
| 
ieee BCKUPREQ 
a | eee ainsi 
REQ1348 REVWADD SFEEEIT 
endtext 
walt 
clear 
text | 
Transaction Management 
eee 
. | 
VIEWATR CRENWATR EDITATR BCKUPATR PRINTATR 
REVWADD 
endtext 
walt 
clear 
Eeze 
Generate Internal Reports 
REPTMENU 
| | | | 
INVREPT OSROREPT TRALREPT Other Reports 
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endtext 
walt 
clear 
text 


NARS Management 


ee 
| 


REVNARSF REVNARAF PROCNAR BCKUPNAR 


end cet 
Walt 
clear 
text 


Turn-in Document Management 


ae 


TURNREV BCKUPTUR CRENWTID EDITTURN 


PRINTTUR 
REVWADD 
endtext 
Wait 
clear 
text 
system Management 
ee 
|p 
MANGSEC MANGARCH MANGRECV MANGADHC MANGINIT 
MANGDOC 
MANGEDIT 
| | 
BCKUPSYS DOCFILES PROGFILE STRUCCRT 
endtext 
wait 
clear 
dowwhile 1. 
store " " €omerae 


@5,5 say "Do you wish to review the charts again?(Y¥/N)"; 
get KiZ picture 11" 
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read 


do case 
case XYZ = "yy" 
clear 
exit 
case XYZ = "N!! 
clear 
set talk on 
Seles eatus On 
exit 
otherwise | 
@ 10,5 say "Invalid entry, press a key-" 
want! i 
@5,0 clear 
endcase 
enddo 
Li oniee= NN 
ex1t 


endif 
enddo 
retin 
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